Fix reading of config.rktd file when in strange readtable.

2013-07-02 16:14:35 -04:00 · 2013-07-02 16:14:35 -04:00 · 45c276b5db
commit 45c276b5db
parent 4dcfe9b8b9
1 changed files with 3 additions and 1 deletions
--- a/racket/lib/collects/setup/dirs.rkt
+++ b/racket/lib/collects/setup/dirs.rkt
@ -26,7 +26,9 @@
                 (if (file-exists? p)
                     (call-with-input-file* 
                      p
-                      (lambda (in) (read in)))
+                      (lambda (in) 
+                        (parameterize ([current-readtable (make-readtable #f)]) 
+                          (read in))))
                     #hash()))
               #hash()))))