www

commit 94a1f9829888fbb5870d38b1fd60f432da1ddb0f
parent ff826b17e37bdaf2984221e18a415ac7376917b7
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Tue, 30 Jun 2009 22:41:05 +0000

macro stepper: fixed opaque variable ref bug

svn: r15348

original commit: ae01dea33645f9da4fe61b54e6801ce655ca14b3

Diffstat:
M
collects/macro-debugger/model/reductions.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss
@@ -60,7 +60,8 @@
     ;; Primitives
     [(Wrap p:variable (e1 e2 rs ?1))
      (R [#:learn (list e2)]
-        [#:when (not (bound-identifier=? e1 e2))
+        [#:when (or (not (identifier? e1))
+                    (not (bound-identifier=? e1 e2)))
                 [#:walk e2 'resolve-variable]])]
     [(Wrap p:module (e1 e2 rs ?1 ?2 tag rename check tag2 ?3 body shift))
      (R [#:hide-check rs]