suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

setup/cross-system: configure reader properly

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-08 18:27:43 -07:00
parent 8e162082e1
commit 7b4c91ea21
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/setup/cross-system.rkt
View File

@ -15,9 +15,11 @@
(define ht (and lib-dir (define ht (and lib-dir
(let ([f (build-path lib-dir "system.rktd")]) (let ([f (build-path lib-dir "system.rktd")])
(and (file-exists? f) (and (file-exists? f)
(let ([ht (call-with-input-file* (let ([ht (call-with-default-reading-parameterization
f (lambda ()
read)]) (call-with-input-file*
f
read)))])
(and (hash? ht) (and (hash? ht)
(for/and ([sym (in-list (list* (for/and ([sym (in-list (list*
'library-subpath 'library-subpath