From 4cb98effa4e7dc87c803731b5c4e1eb7b0bd4d08 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 30 Apr 2005 05:23:00 +0000 Subject: [PATCH] Guarantee canonicalized symbols when loading files. --- v7/src/etc/optiondb.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/v7/src/etc/optiondb.scm b/v7/src/etc/optiondb.scm index bf6908a15..9a2b99fc8 100644 --- 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)))) -- 2.25.1