Fix interface.

This commit is contained in:
Vincent St-Amour 2011-06-17 14:47:16 -04:00
parent 7e9dbded4c
commit a621eaf041
2 changed files with 4 additions and 4 deletions

View File

@ -439,7 +439,7 @@
(define-syntax racketblock+interaction
(syntax-rules ()
[(_ #:eval ev name e ...)
[(_ #:eval ev e ...)
(let ([eva ev])
(#%expression
(begin (interaction #:eval eva e) ...
@ -459,7 +459,7 @@
(define-syntax racketblock0+interaction
(syntax-rules ()
[(_ #:eval ev name e ...)
[(_ #:eval ev e ...)
(let ([eva ev])
(#%expression
(begin (interaction #:eval eva e) ...

View File

@ -106,8 +106,8 @@ Combines @racket[racketblock0] and @racket[interaction].}
Combines @racket[racketblock0] and @racket[interaction-eval].}
@defform*[[(racketmod+interaction datum ...)
(racketmod+interaction #:eval eval-expr datum ...)]]{
@defform*[[(racketmod+interaction name datum ...)
(racketmod+interaction #:eval eval-expr name datum ...)]]{
Combines @racket[racketmod] and @racket[interaction].}