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

set `read-accept-lang' to #t by default, plus related adjustments

Browse Source 
including adding some uses of `with-module-read-parameterization'
 so that `read-accept-lang' is set right anyway; still, so many
 many places just set `read-accept-reader' to #t that making
 `read-accept-lang' #f by default looks like too big of an
 incompatibility

original commit: 6ac33a62be6e2b855049307ce797832a40f9d1de
This commit is contained in:
Matthew Flatt 2010-10-08 18:35:05 -06:00
parent bd7d0f1ba8
commit f5d1244f61
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/extract.rkt
View File

@ -7,6 +7,7 @@
scheme/path scheme/path
scheme/list scheme/list
syntax/path-spec syntax/path-spec
syntax/modread
(for-syntax scheme/base))) (for-syntax scheme/base)))
(provide include-extracted (provide include-extracted
@ -35,14 +36,15 @@
n-path)]) n-path)])
(let ([s-exp (let ([s-exp
(parameterize ([current-namespace (make-base-namespace)] (parameterize ([current-namespace (make-base-namespace)]
[read-accept-reader #t]
[current-load-relative-directory [current-load-relative-directory
(path-only path)]) (path-only path)])
(expand (expand
(with-input-from-file path (with-module-reading-parameterization
(lambda () (lambda ()
(port-count-lines! (current-input-port)) (with-input-from-file path
(read-syntax path)))))]) (lambda ()
(port-count-lines! (current-input-port))
(read-syntax path)))))))])
(syntax-case s-exp () (syntax-case s-exp ()
[(mod name lang [(mod name lang
(mod-beg (mod-beg