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

parameterize SRFI-29 read to make it independent of the context

Browse Source 
svn: r7024
This commit is contained in:
Matthew Flatt 2007-08-05 12:06:20 +00:00
parent 255e6181d6
commit 972429ddf7
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/srfi/29/localization.ss
View File

@ -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)