commit 6fcdf2701db88ab7178e7eb7b70ce0539981b76e parent dbc5517dad51fe27dbbdab9be1c6f4d7c223a256 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Fri, 5 Sep 2008 20:57:59 +0000 restored macro-debugger/expand module (expand-only, expand/hide) svn: r11561 original commit: bac74a3759819c08f109dd7cdff262a9c1288a88 Diffstat:
| M | collects/macro-debugger/expand.ss | | | 12 | +++++++----- |
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.ss @@ -1,7 +1,8 @@ #lang scheme/base -(require "model/trace.ss") +(require "model/trace.ss" + "model/reductions-config.ss" + "model/reductions.ss") -#| (provide expand-only expand/hide) @@ -21,6 +22,7 @@ (let-values ([(result deriv) (trace/result stx)]) (when (exn? result) (raise result)) - (let-values ([(_d estx) (hide*/policy deriv show?)]) - estx))) -|# + (let-values ([(_steps _uses stx _exn) + (parameterize ((macro-policy show?)) + (reductions+ deriv))]) + stx)))