From a0b8a94d8b93e776fd20a5c553214a1301a7e82d Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 3 Sep 2010 14:03:26 -0600 Subject: [PATCH] macro stepper: ignore track origin for now, need to coordinate with marks --- 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 index d58692339a..f53cbc4e07 100644 --- 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)]