bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit f5d1244f613f6f13032a9e3923d5a3e8995de496
parent bd7d0f1ba8a66045385378f1d0d68b9c3b988cbe
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri,  8 Oct 2010 18:35:05 -0600

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

Diffstat:
M
collects/scribble/extract.rkt
 | 
12
+++++++-----

1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/extract.rkt b/collects/scribble/extract.rkt
@@ -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-input-from-file path
-                (lambda ()
-                  (port-count-lines! (current-input-port))
-                  (read-syntax path)))))])
+              (with-module-reading-parameterization
+               (lambda ()
+                 (with-input-from-file path
+                   (lambda ()
+                     (port-count-lines! (current-input-port))
+                     (read-syntax path)))))))])
       (syntax-case s-exp ()
         [(mod name lang
               (mod-beg