From bac74a3759819c08f109dd7cdff262a9c1288a88 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 5 Sep 2008 20:57:59 +0000 Subject: [PATCH] restored macro-debugger/expand module (expand-only, expand/hide) svn: r11561 --- 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 index f08d1c7a93..5d721123e7 100644 --- 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)))