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

removed earlier module language fix because it wasn't really a fix ...

Browse Source 
svn: r3441
This commit is contained in:
Robby Findler 2006-06-22 21:53:22 +00:00
parent c345c8eef2
commit 98c5c33845
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/module-language.ss
View File

@ -404,7 +404,16 @@
(check-filename-matches filename (check-filename-matches filename
(syntax-object->datum (syntax name)) (syntax-object->datum (syntax name))
unexpanded-stx)) unexpanded-stx))
(let ([new-name (build-name filename)])
(values v-name
stx)
;; this isn't working ...
#;
(let ([new-name (if filename
(build-name filename)
v-name)])
(values new-name (values new-name
#`(module #,new-name lang (#%plain-module-begin bodies ...)))))] #`(module #,new-name lang (#%plain-module-begin bodies ...)))))]
[else [else