www

commit 6896ad8e12f2fbf6e522fb7c1936124224426325
parent 077965f262cad5bec1be90396b8d6307f46dc840
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Fri,  3 Sep 2010 14:03:26 -0600

macro stepper: ignore track origin for now, need to coordinate with marks

original commit: a0b8a94d8b93e776fd20a5c553214a1301a7e82d

Diffstat:
M
collects/macro-debugger/model/reductions.rkt
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/model/reductions.rkt b/collects/macro-debugger/model/reductions.rkt
@@ -455,9 +455,13 @@
         [#:binders names]
         [#:when bindrhs => (BindSyntaxes bindrhs)]]]
     [(struct track-origin (before after))
+     (R)
+     #|
+     ;; Do nothing for now... need to account for marks also.
      [R [#:set-syntax before]
         [#:pattern ?form]
-        [#:rename ?form after 'track-origin]]]
+        [#:rename ?form after 'track-origin]]
+     |#]
     [(struct local-value (name ?1 resolves bound?))
      [R [! ?1]
         ;; [#:learn (list name)]