Fix interface.

original commit: a621eaf04151f4bf830bfe3fca5c60c6dd72fcae
This commit is contained in:
Vincent St-Amour 2011-06-17 14:47:16 -04:00
parent 01a237406a
commit 3dc3b7ee6e
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].}