macro stepper: ignore track origin for now, need to coordinate with marks
This commit is contained in:
parent
fff692309e
commit
a0b8a94d8b
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user