fix begin-for-syntax test

2011-11-08 22:01:26 -06:00 · 2011-11-08 22:01:26 -06:00 · b063604ab4
commit b063604ab4
parent 2d70017091
1 changed files with 2 additions and 1 deletions
--- a/collects/tests/drracket/module-lang-test.rkt
+++ b/collects/tests/drracket/module-lang-test.rkt
@ -164,7 +164,8 @@

 (test @t{#lang racket}
      @t{(begin-for-syntax (+ 1 2))}
-      "")
+      @t{> (begin-for-syntax (+ 1 2))}
+      #t)

 (test @t{#lang racket}
      @t{(begin (struct s (x)) (struct t s (y)) (s-x (t 1 2)))}