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

htdp language readers introduce explicit #%module-begin (for consistency with other #lang-based languages, as requested by JPR); merge to4.2.5

Browse Source 
svn: r18605
This commit is contained in:
Matthew Flatt 2010-03-23 13:34:00 +00:00
parent 7c55242179
commit 0550cc3680
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lang/htdp-reader.ss
View File

@ -39,10 +39,11 @@
(datum->syntax-object (datum->syntax-object
#f #f
`(module ,modname ,spec `(module ,modname ,spec
(#%module-begin
,@(map (λ (x) `(require ,x)) ,@(map (λ (x) `(require ,x))
(lookup 'teachpacks table)) (lookup 'teachpacks table))
,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)] ,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)]
[read-decimal-as-inexact #f] [read-decimal-as-inexact #f]
[read-accept-dot #f]) [read-accept-dot #f])
(get-all-exps source-name port))))))]) (get-all-exps source-name port)))))))])
read-syntax))) read-syntax)))