suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Ryan Culpepper 2010-09-03 14:03:26 -06:00
parent fff692309e
commit a0b8a94d8b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/macro-debugger/model/reductions.rkt
View File

@ -455,9 +455,13 @@
[#:binders names] [#:binders names]
[#:when bindrhs => (BindSyntaxes bindrhs)]]] [#:when bindrhs => (BindSyntaxes bindrhs)]]]
[(struct track-origin (before after)) [(struct track-origin (before after))
(R)
#|
;; Do nothing for now... need to account for marks also.
[R [#:set-syntax before] [R [#:set-syntax before]
[#:pattern ?form] [#:pattern ?form]
[#:rename ?form after 'track-origin]]] [#:rename ?form after 'track-origin]]
|#]
[(struct local-value (name ?1 resolves bound?)) [(struct local-value (name ?1 resolves bound?))
[R [! ?1] [R [! ?1]
;; [#:learn (list name)] ;; [#:learn (list name)]