fix `racketmod' file box mode

This commit is contained in:
Matthew Flatt 2011-08-24 05:52:19 -06:00
parent fa82d70cc6
commit b7bad5cc8a

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 ...))]))