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

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

View File

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