From 972429ddf76112fcd41974445912ab082f0b74f9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 5 Aug 2007 12:06:20 +0000
Subject: [PATCH] parameterize SRFI-29 read to make it independent of the
 context

svn: r7024
---
 collects/srfi/29/localization.ss | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/collects/srfi/29/localization.ss b/collects/srfi/29/localization.ss
index 7e3ee920b6..b9cc2e63d4 100644
--- a/collects/srfi/29/localization.ss
+++ b/collects/srfi/29/localization.ss
@@ -24,7 +24,8 @@
 
 (module localization mzscheme
   (require (lib "etc.ss")
-           (lib "runtime-path.ss"))
+           (lib "runtime-path.ss")
+           (lib "modread.ss" "syntax"))
   (provide current-language current-country current-locale-details
 	   load-bundle! store-bundle! declare-bundle!
 	   localized-template
@@ -97,6 +98,15 @@
   ;; System bundles are here:
   (define-runtime-path system-bundles "bundles")
 
+  (define (with-reader-params thunk)
+    ;; Use `with-module-reading-parameterization' to get
+    ;; most defaults...
+    (with-module-reading-parameterization 
+     (lambda ()
+       ;; ... but disable `#reader':
+       (parameterize ([read-accept-reader #f])
+         thunk))))
+
   ;; bundle-specifier: (listof symbol)
   ;; i.e. package + locale, (package-name [language] [country] [details ...])
   (define load-bundle!
@@ -115,7 +125,9 @@
 	(and (file-exists? path)
 	     ;; Found!
 	     (declare-bundle! bundle-specifier
-			      (with-input-from-file path read))))))
+                              (with-reader-params
+                               (lambda ()
+                                 (with-input-from-file path read))))))))
 
   (define extract-assoc-list
     (lambda (bundle-specifier)