www

commit 6409d4b79a230f81794eef6c7c46e9cf49691820
parent f392ff8d8f255b7083ae60c59673350a02407a4e
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Thu, 25 Feb 2010 22:15:02 +0000

macro-debugger: another internal error bug

svn: r18342

original commit: 6bb3b5f1b69ded26f0762abcf1c29e69439c790a

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

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.ss
@@ -425,7 +425,7 @@
       (let ([deriv* (adjust-deriv/lift deriv)])
         deriv*))
 
-    ;; adjust-deriv/lift : Derivation -> (list-of Derivation)
+    ;; adjust-deriv/lift : Deriv -> Deriv/#f
     (define/private (adjust-deriv/lift deriv)
       (match deriv
         [(Wrap lift-deriv (e1 e2 first lifted-stx second))
@@ -442,8 +442,8 @@
 
     ;; adjust-deriv/top : Derivation -> Derivation
     (define/private (adjust-deriv/top deriv)
-      (if (or (and #| (syntax-source (wderiv-e1 deriv)) |#
-                   (syntax-original? (wderiv-e1 deriv)))
+      (if (or (not deriv)
+              (syntax-original? (wderiv-e1 deriv))
               (p:module? deriv))
           deriv
           ;; It's not original...