www

commit b42ddf0c8f4bd2b7c472f4edd1a463d3b3c7a3c0
parent fea4babc374375be02a17e69a3048b691a7e1880
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 30 Jul 2013 12:55:38 -0400

fix macro-stepper tests

original commit: 08fcc0690a4add831aca42e20ba4f537964dbb8e

Diffstat:
M
pkgs/macro-debugger-pkgs/macro-debugger/tests/macro-debugger/tests/syntax-modules.rkt
 | 
30
+++++++++++++++---------------

1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/pkgs/macro-debugger-pkgs/macro-debugger/tests/macro-debugger/tests/syntax-modules.rkt b/pkgs/macro-debugger-pkgs/macro-debugger/tests/macro-debugger/tests/syntax-modules.rkt
@@ -201,7 +201,7 @@
          (macro
           (module m mzscheme 
             (#%plain-module-begin
-             (#%require (for-syntax scheme/mzscheme))
+             (#%require (for-syntax mzscheme))
              (define-values (x) 'a)
              x)))]
         #:no-hidden-steps)
@@ -213,7 +213,7 @@
          (macro
              (module m mzscheme
                (#%plain-module-begin 
-                (#%require (for-syntax scheme/mzscheme))
+                (#%require (for-syntax mzscheme))
                 (define-values (x) 'a))))]
         #:no-hidden-steps)
   (test "module mz, quote"
@@ -224,7 +224,7 @@
          (macro
              (module m mzscheme
                (#%plain-module-begin
-                (#%require (for-syntax scheme/mzscheme))
+                (#%require (for-syntax mzscheme))
                 'a)))]
         #:no-hidden-steps)
 
@@ -236,12 +236,12 @@
          (macro
              (module m mzscheme 
                (#%plain-module-begin
-                (#%require (for-syntax scheme/mzscheme))
+                (#%require (for-syntax mzscheme))
                 (begin 'a 'b))))
          (splice-module
           (module m mzscheme
             (#%plain-module-begin
-             (#%require (for-syntax scheme/mzscheme))
+             (#%require (for-syntax mzscheme))
              'a 'b)))]
         #:no-hidden-steps)
 
@@ -253,41 +253,41 @@
          (macro
           (module m mzscheme 
             (#%plain-module-begin
-             (#%require (for-syntax scheme/mzscheme))
+             (#%require (for-syntax mzscheme))
              (or 'a 'b)
              'c)))
          (macro
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let ([or-part 'a])
                 (if or-part or-part (or 'b)))
               'c)))
          (macro
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (or 'b)))
               'c)))
          (rename-let-values
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (or 'b)))
               'c)))
          (macro
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (#%expression 'b)))
               'c)))
          (macro ;; FIXME: 'untag-expr
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part 'b))
               'c)))]
@@ -310,25 +310,25 @@
          (macro
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (or 'b))))))
          (rename-let-values
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (or 'b))))))
          (macro
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part (#%expression 'b))))))
          (macro ;; FIXME: 'untag-expr
            (module m mzscheme
              (#%plain-module-begin
-              (#%require (for-syntax scheme/mzscheme))
+              (#%require (for-syntax mzscheme))
               (let-values ([(or-part) 'a])
                 (if or-part or-part 'b)))))])
   ;; FIXME: hidden steps for above, tricky