commit 1c1a9c1e880d76fb700cd61eeeec4ebfb13e491c parent b59b3e692c7f5c2ebafeffdd3f74a8e7d8834e30 Author: Ryan Culpepper <ryanc@racket-lang.org> Date: Mon, 11 Sep 2006 13:48:27 +0000 Unitized macro stepper view; tool uses different base frame svn: r4309 original commit: c9653c888b189ce499617825385c5522c2c40634 Diffstat:
| M | collects/macro-debugger/expand.ss | | | 3 | ++- |
| A | collects/macro-debugger/view/view.ss | | | 14 | ++++++++++++++ |
2 files changed, 16 insertions(+), 1 deletion(-)
diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.ss @@ -1,6 +1,7 @@ (module expand mzscheme - (require "view/gui.ss") + (require (lib "unitsig.ss")) + (require "view/view.ss") (provide expand/step) (define (expand/step stx) diff --git a/collects/macro-debugger/view/view.ss b/collects/macro-debugger/view/view.ss @@ -0,0 +1,13 @@ + +(module view mzscheme + (require (lib "unitsig.ss")) + (require "gui.ss") + (provide (all-defined)) + + (define-values/invoke-unit/sig view^ + (compound-unit/sig + (import) + (link (BASE : view-base^ (view-base@)) + (VIEW : view^ (view@ BASE))) + (export (open VIEW)))) + ) +\ No newline at end of file