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

View File

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