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

original commit: a0b8a94d8b93e776fd20a5c553214a1301a7e82d
This commit is contained in:
Ryan Culpepper 2010-09-03 14:03:26 -06:00
parent 077965f262
commit 6896ad8e12

View File

@ -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)]