commit 4339fbad87575add8be19202696b78d245b409cb parent a3ae3177dfcbb9c59a685fb7782b3063da35daa8 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Mon, 5 Nov 2012 17:25:20 -0500 macro-stepper: fix for lifted provides closes PR 13236 original commit: 321cd1b4aee78f8c88b028601d63dbfa59ff70fd Diffstat:
| M | collects/macro-debugger/model/reductions.rkt | | | 14 | ++++++++------ |
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/collects/macro-debugger/model/reductions.rkt b/collects/macro-debugger/model/reductions.rkt @@ -721,12 +721,14 @@ [#:set-syntax (append stxs old-forms)] [ModulePass ?forms rest]])] [(cons (Wrap mod:lift-end (stxs)) rest) - (R [#:pattern ?forms] - [#:when (pair? stxs) - [#:left-foot null] - [#:set-syntax (append stxs #'?forms)] - [#:step 'splice-module-lifts stxs]] - [ModulePass ?forms rest])] + ;; In pass2, stxs contains a mixture of terms and kind-tagged terms (pairs) + (let ([stxs (map (lambda (e) (if (pair? e) (car e) e)) stxs)]) + (R [#:pattern ?forms] + [#:when (pair? stxs) + [#:left-foot null] + [#:set-syntax (append stxs #'?forms)] + [#:step 'splice-module-lifts stxs]] + [ModulePass ?forms rest]))] [(cons (Wrap mod:skip ()) rest) (R [#:pattern (?firstS . ?rest)] [ModulePass ?rest rest])]