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

macro-debugger: fix #%top in local-expand

Browse Source 
closes PR 14822

original commit: 395eee7598b2cf1c48e80c3df5e9fff9b75181b2
This commit is contained in:
Ryan Culpepper 2014-11-12 19:41:48 -05:00
parent f222c3951c
commit 9d458f919b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/model/reductions.rkt
View File

@ -218,8 +218,12 @@
[#:walk e2 'macro])]
[(Wrap p:#%top (e1 e2 rs ?1))
(R [! ?1]
[#:pattern (?top . ?var)]
[#:learn (list #'?var)])]
[#:pattern ?form]
[#:learn
(syntax-case #'?form ()
[(?top . ?var) (identifier? #'?var) (list #'?var)]
[?var (identifier? #'?var) (list #'?var)]
[_ (error 'macro-debugger "#%top has wrong form: ~s\n" #'?form)])])]
[(Wrap p:provide (e1 e2 rs ?1 inners ?2))
(let ([wrapped-inners (map expr->local-action inners)])