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

This commit is contained in:
Ryan Culpepper 2010-09-03 14:03:26 -06:00
parent fff692309e
commit a0b8a94d8b

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