Add empty case for with-contract's clause for free variable contracts.

Also reorder the single and multiple cases to match result-spec's ordering.
This commit is contained in:
Stevie Strickland 2012-06-28 03:28:04 -04:00
parent 379974fc6e
commit d16c3f68fa

View File

@ -1158,8 +1158,9 @@ instead of at the end of the enclosing module.}
(code:line #:result contract-expr) (code:line #:result contract-expr)
(code:line #:results (contract-expr ...))] (code:line #:results (contract-expr ...))]
[free-var-list [free-var-list
(code:line #:freevars ([id contract-expr] ...)) (code:line)
(code:line #:freevar id contract-expr)])]{ (code:line #:freevar id contract-expr)
(code:line #:freevars ([id contract-expr] ...))])]{
Generates a local contract boundary. Generates a local contract boundary.
The first @racket[with-contract] form cannot appear in expression position. The first @racket[with-contract] form cannot appear in expression position.