From b42ddf0c8f4bd2b7c472f4edd1a463d3b3c7a3c0 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Tue, 30 Jul 2013 12:55:38 -0400
Subject: [PATCH] fix macro-stepper tests

original commit: 08fcc0690a4add831aca42e20ba4f537964dbb8e
---
 .../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
index cd72f86..14c5d4d 100644
--- 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