commit 34c1af4bd56fec38599408321455cc9d0c655077 parent daa389be60f9829c3c6bee4c9cd087445c882edc Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Wed, 13 Jan 2010 23:41:23 +0000 macro-debugger: fixed bug re local-expansion and macro hiding svn: r17642 original commit: 97135f112c7ddf6b74e23544eb9b98c823ed73c3 Diffstat:
| M | collects/macro-debugger/model/reductions.ss | | | 3 | ++- |
| M | collects/tests/macro-debugger/gentests.ss | | | 12 | +++++++++++- |
2 files changed, 13 insertions(+), 2 deletions(-)
diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.ss @@ -366,7 +366,8 @@ [#:new-local-context [LocalAction ?form local]]]) ([#:pass1] - [LocalAction ?form local] + ;; Use ?disconnected; do not modify real term + [LocalAction ?disconnected local] [#:pass2])] [LocalActions ?form rest])])) diff --git a/collects/tests/macro-debugger/gentests.ss b/collects/tests/macro-debugger/gentests.ss @@ -101,7 +101,17 @@ (define (check-steps expected actual) (check-pred list? actual) (check-pred reduction-sequence? actual) - (compare-step-sequences actual expected)) + (with-check-info (['actual-sequence-raw actual] + ['actual-sequence + (for/list ([thing actual]) + (if (misstep? thing) + 'error + (list* (protostep-type thing) + (syntax->datum (step-term2 thing)) + (map syntax->datum + (map bigframe-term (state-lctx (protostep-s1 thing)))))))] + ['expected-sequence expected]) + (compare-step-sequences actual expected))) (define (reduction-sequence? rs) (andmap protostep? rs))