diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-11-22 16:04:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-11-22 16:04:24 +0100 |
| commit | 83d4c4d622b406ec0bc9d8139ec8182fa72b5720 (patch) | |
| tree | d64a77e703b14a2274679800187e67df783f6b96 /module/ice-9 | |
| parent | 2fe9a852fb3c6aaeef5dc9d12df3a9150eeb232a (diff) | |
Honor '%fresh-auto-compile'.
Fixes <https://bugs.gnu.org/29226>.
* libguile/load.c (scm_primitive_load_path): Set 'compiled_thunk' to
SCM_BOOL_F when *scm_loc_fresh_auto_compile is true.
* module/ice-9/boot-9.scm (load-in-vicinity)[load-absolute]: Call
'pre-compiled' only when %FRESH-AUTO-COMPILE is false.
Diffstat (limited to 'module/ice-9')
| -rw-r--r-- | module/ice-9/boot-9.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 4e51e9281..751a3bcd1 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -3811,7 +3811,10 @@ when none is available, reading FILE-NAME with READER." scmstat go-file-name)))))) - (let ((compiled (and scmstat (or (pre-compiled) (fallback))))) + (let ((compiled (and scmstat + (or (and (not %fresh-auto-compile) + (pre-compiled)) + (fallback))))) (if compiled (begin (if %load-hook |