From 1c1a9c1e880d76fb700cd61eeeec4ebfb13e491c Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Mon, 11 Sep 2006 13:48:27 +0000 Subject: [PATCH] Unitized macro stepper view; tool uses different base frame svn: r4309 original commit: c9653c888b189ce499617825385c5522c2c40634 --- collects/macro-debugger/expand.ss | 3 ++- collects/macro-debugger/view/view.ss | 13 +++++++++++++ 2 files changed, 15 insertions(+), 1 deletion(-) create mode 100644 collects/macro-debugger/view/view.ss diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.ss index 68d64b9..1d52b22 100644 --- 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 new file mode 100644 index 0000000..166e398 --- /dev/null +++ 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