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

setup/dirs: fix "config.rktd" reader

Browse Source
This commit is contained in:
Matthew Flatt 2013-08-22 10:44:26 -06:00
parent e7d300d238
commit 52da62a956
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-pkgs/racket-test/tests/racket/setup.rktl
View File

@ -49,6 +49,13 @@
(test #t system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath)) (test #t system* exec-path "-l" "raco" "make" "-j" "2" (path->string relpath))
(delete-directory/files tmpdir)) (delete-directory/files tmpdir))
;; ----------------------------------------
;; Make sure that setting the reader doesn't break reading a configuration file:
(parameterize ([current-namespace (make-base-namespace)]
[read-accept-dot #f])
((dynamic-require 'setup/dirs 'get-pkgs-search-dirs)))
;; ---------------------------------------- ;; ----------------------------------------
(report-errs) (report-errs)

5
racket/collects/setup/dirs.rkt
View File

@ -24,8 +24,9 @@
(call-with-input-file* (call-with-input-file*
p p
(lambda (in) (lambda (in)
(parameterize ([current-readtable (make-readtable #f)]) (call-with-default-reading-parameterization
(read in)))) (lambda ()
(read in)))))
#hash())) #hash()))
#hash())))) #hash()))))