From f5d1244f613f6f13032a9e3923d5a3e8995de496 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Oct 2010 18:35:05 -0600
Subject: [PATCH] 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
---
 collects/scribble/extract.rkt | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/scribble/extract.rkt b/collects/scribble/extract.rkt
index 4f75ad4f..0f928571 100644
--- 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