setup/cross-system: configure reader properly

2016-01-08 18:27:43 -07:00 · 2016-01-08 18:27:43 -07:00 · 7b4c91ea21
commit 7b4c91ea21
parent 8e162082e1
1 changed files with 5 additions and 3 deletions
--- a/racket/collects/setup/cross-system.rkt
+++ b/racket/collects/setup/cross-system.rkt
@ -15,9 +15,11 @@
    (define ht (and lib-dir
                    (let ([f (build-path lib-dir "system.rktd")])
                      (and (file-exists? f)
-                           (let ([ht (call-with-input-file*
-                                      f
-                                      read)])
+                           (let ([ht (call-with-default-reading-parameterization
+                                      (lambda ()
+                                        (call-with-input-file*
+                                         f
+                                         read)))])
                             (and (hash? ht)
                                  (for/and ([sym (in-list (list*
                                                           'library-subpath