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

fixed a bug -- now if a teaching language file is renamed, it should still work

Browse Source 
svn: r6179
This commit is contained in:
Robby Findler 2007-05-08 18:19:49 +00:00
parent 333ff87027
commit 5b8705a7ae
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,10 +27,16 @@
(let ([read-syntax
(opt-lambda ([source-name #f]
[port (current-input-port)])
(let ([table (read port)])
(let* ([table (read port)]
[path (object-name port)]
[modname
(if path
(let-values ([(base name dir) (split-path path)])
(string->symbol (path->string (path-replace-suffix name #""))))
(lookup 'modname table))])
(datum->syntax-object
#f
`(module ,(lookup 'modname table) ,spec
`(module ,modname ,spec
,@(map (λ (x) `(require ,x))
(lookup 'teachpacks table))
,@(parameterize ([read-case-sensitive (lookup 'read-case-sensitive table)])