tweaks to boot-9

* module/ice-9/boot-9.scm: Move the r4rs init up to the top.
  (try-module-autoload): Don't use with-fluids before it's defined.

1 files changed, 9 insertions, 9 deletions

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index c39dd4a5b..59ae0a067 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -33,6 +33,13 @@
 
 
 
+;;; {R4RS compliance}
+;;;
+
+(primitive-load-path "ice-9/r4rs")
+
+
+
 ;;; {Features}
 ;;;
 
@@ -189,13 +196,6 @@
 
 
 
-;;; {R4RS compliance}
-;;;
-
-(primitive-load-path "ice-9/r4rs")
-
-
-
 ;;; {Simple Debugging Tools}
 ;;;
 
@@ -2158,8 +2158,8 @@ module '(ice-9 q) '(make-q q-length))}."
                                      (stat:mtime (stat source)))))
                          (if compiled
                              (warn "source file" source "newer than" compiled))
-                         (with-fluids ((current-reader #f))
-                           (load-file primitive-load source)))
+                         (with-fluid* current-reader #f
+                           (lambda () (load-file primitive-load source))))
                         (compiled
                          (load-file load-compiled compiled))))))
 	    (lambda () (set-autoloaded! dir-hint name didit)))