fix begin-for-syntax test

This commit is contained in:
Robby Findler 2011-11-08 22:01:26 -06:00
parent 2d70017091
commit b063604ab4

View File

@ -164,7 +164,8 @@
(test @t{#lang racket} (test @t{#lang racket}
@t{(begin-for-syntax (+ 1 2))} @t{(begin-for-syntax (+ 1 2))}
"") @t{> (begin-for-syntax (+ 1 2))}
#t)
(test @t{#lang racket} (test @t{#lang racket}
@t{(begin (struct s (x)) (struct t s (y)) (s-x (t 1 2)))} @t{(begin (struct s (x)) (struct t s (y)) (s-x (t 1 2)))}