mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Revert "Honor '%fresh-auto-compile'."

Browse source 
This reverts commit 83d4c4d622,
which came from a misunderstanding.
This commit is contained in:
Ludovic Courtès 2018-01-15 23:17:24 +01:00 • committed by Andy Wingo
parent de7943a42b
commit 2245c67c37
2 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/load.c
View file

@ -1202,16 +1202,13 @@ SCM_DEFINE (scm_primitive_load_path, "primitive-load-path", 0, 0, 1,
*scm_loc_load_extensions, SCM_BOOL_F,
&stat_source);
if (scm_is_false (*scm_loc_fresh_auto_compile))
compiled_thunk = load_thunk_from_path (filename, full_filename,
&stat_source,
&found_stale_compiled_file);
else
compiled_thunk = SCM_BOOL_F;
compiled_thunk = load_thunk_from_path (filename, full_filename, &stat_source,
&found_stale_compiled_file);
if (scm_is_false (compiled_thunk)
&& scm_is_true (full_filename)
&& scm_is_true (*scm_loc_compile_fallback_path)
&& scm_is_false (*scm_loc_fresh_auto_compile)
&& scm_is_pair (*scm_loc_load_compiled_extensions)
&& scm_is_string (scm_car (*scm_loc_load_compiled_extensions)))
{