Guarantee canonicalized symbols when loading files.

diff --git a/v7/src/etc/optiondb.scm b/v7/src/etc/optiondb.scm
index bf6908a15f00e7934ed31136172940ad91e0e9d3..9a2b99fc86d0e1a5e71f49aeaa94c312ba8fc6f2 100644 (file)
--- a/v7/src/etc/optiondb.scm
+++ b/v7/src/etc/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: optiondb.scm,v 1.14 2005/04/30 05:09:55 cph Exp $
+$Id: optiondb.scm,v 1.15 2005/04/30 05:23:00 cph Exp $
 
 Copyright 2000,2001,2002,2004 Massachusetts Institute of Technology
 
@@ -64,9 +64,7 @@ USA.
                                  (pathname-as-directory directory)))
                                (with-working-directory-pathname directory
                                  (lambda ()
-                                   (fluid-let
-                                       ((*parser-canonicalize-symbols?* #t))
-                                     (load (car files)))))
+                                   (load (car files) '(RUNTIME))))
                                (file-loop (cdr files)))
                            (dir-loop (cdr dirs))))
                      (dir-loop (cdr dirs))))