reader didnt get set up properly for the teaching languages

svn: r12823
This commit is contained in:
Robby Findler 2008-12-12 21:25:04 +00:00
parent 6b4270721c
commit fca3c228a7

View File

@ -41,6 +41,8 @@
`(module ,modname ,spec
,@(map (λ (x) `(require ,x))
(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-accept-dot #f])
(get-all-exps source-name port))))))])
read-syntax)))