Unitized macro stepper view; tool uses different base frame

svn: r4309

original commit: c9653c888b189ce499617825385c5522c2c40634
This commit is contained in:
Ryan Culpepper 2006-09-11 13:48:27 +00:00
parent b59b3e692c
commit 1c1a9c1e88
2 changed files with 15 additions and 1 deletions

View File

@ -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)

View File

@ -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))))
)