[Guile-commits] 08/58: Revert "Honor '%fresh-auto-compile'."

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 2245c67c379ad62da77e68b5daa8e00b3833f9ff
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 15 23:17:24 2018 +0100

    Revert "Honor '%fresh-auto-compile'."
    
    This reverts commit 83d4c4d622b406ec0bc9d8139ec8182fa72b5720,
    which came from a misunderstanding.
---
 libguile/load.c         | 9 +++------
 module/ice-9/boot-9.scm | 5 +----
 2 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/libguile/load.c b/libguile/load.c
index e9d3e6c..aac789b 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -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)))
     {
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 022c572..09eb871 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3795,10 +3795,7 @@ when none is available, reading FILE-NAME with READER."
                                               scmstat
                                               go-file-name))))))
 
-    (let ((compiled (and scmstat
-                         (or (and (not %fresh-auto-compile)
-                                  (pre-compiled))
-                             (fallback)))))
+    (let ((compiled (and scmstat (or (pre-compiled) (fallback)))))
       (if compiled
           (begin
             (if %load-hook