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

restored macro-debugger/expand module (expand-only, expand/hide)

Browse Source 
svn: r11561
This commit is contained in:
Ryan Culpepper 2008-09-05 20:57:59 +00:00
parent d7d8b2c7b3
commit bac74a3759
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/macro-debugger/expand.ss
View File

@ -1,7 +1,8 @@
#lang scheme/base #lang scheme/base
(require "model/trace.ss") (require "model/trace.ss"
"model/reductions-config.ss"
"model/reductions.ss")
#|
(provide expand-only (provide expand-only
expand/hide) expand/hide)
@ -21,6 +22,7 @@
(let-values ([(result deriv) (trace/result stx)]) (let-values ([(result deriv) (trace/result stx)])
(when (exn? result) (when (exn? result)
(raise result)) (raise result))
(let-values ([(_d estx) (hide*/policy deriv show?)]) (let-values ([(_steps _uses stx _exn)
estx))) (parameterize ((macro-policy show?))
|# (reductions+ deriv))])
stx)))