fix `racketmod' file box mode

original commit: b7bad5cc8a7739a3be02fb0ef70a48a7a62110dc
This commit is contained in:
Matthew Flatt 2011-08-24 05:52:19 -06:00
parent 47bab9943d
commit fa41cf795e

View File

@ -109,7 +109,7 @@
#,(syntax/loc stx (racketblock0 #:escape unsyntax-id modtag rest ...))))
(syntax/loc stx (racketblock0 #:escape unsyntax-id modtag rest ...))))]
[(_ #:file filename lang rest ...)
(syntax/loc stx (racketmod0 #:file #f #:escape unsyntax lang rest ...))]
(syntax/loc stx (racketmod0 #:file filename #:escape unsyntax lang rest ...))]
[(_ lang rest ...)
(syntax/loc stx (racketmod0 #:file #f lang rest ...))]))