From 6bb3b5f1b69ded26f0762abcf1c29e69439c790a Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 25 Feb 2010 22:15:02 +0000
Subject: [PATCH] macro-debugger: another internal error bug

svn: r18342
---
 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
index 82c65f3aaa..00f73ec294 100644
--- 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...