www

commit 254f98d602ca232147966e06bdc567d60f848873
parent 063619c7e2bd7e9ac3f7f0e0eab49c331a6296e0
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri, 23 May 2008 05:11:26 +0000

updated macro stepper for change in Module language

svn: r9940

original commit: 268e1c858eb4c8f30e41cfc9f076ceb89ff871d6

Diffstat:
M
collects/macro-debugger/view/stepper.ss
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.ss
@@ -390,7 +390,7 @@
     (define/private (get-original-part deriv)
       (let ([deriv* (adjust-deriv/lift deriv)])
         deriv*))
-    
+
     ;; adjust-deriv/lift : Derivation -> (list-of Derivation)
     (define/private (adjust-deriv/lift deriv)
       (match deriv
@@ -403,7 +403,8 @@
 
     ;; adjust-deriv/top : Derivation -> Derivation
     (define/private (adjust-deriv/top deriv)
-      (if (syntax-source (wderiv-e1 deriv))
+      (if (or (syntax-source (wderiv-e1 deriv))
+              (p:module? deriv))
           deriv
           ;; It's not original...
           ;; Strip out mzscheme's top-interactions