Unitized macro stepper view; tool uses different base frame
svn: r4309 original commit: c9653c888b189ce499617825385c5522c2c40634
This commit is contained in:
parent
b59b3e692c
commit
1c1a9c1e88
|
@ -1,6 +1,7 @@
|
||||||
|
|
||||||
(module expand mzscheme
|
(module expand mzscheme
|
||||||
(require "view/gui.ss")
|
(require (lib "unitsig.ss"))
|
||||||
|
(require "view/view.ss")
|
||||||
(provide expand/step)
|
(provide expand/step)
|
||||||
|
|
||||||
(define (expand/step stx)
|
(define (expand/step stx)
|
||||||
|
|
13
collects/macro-debugger/view/view.ss
Normal file
13
collects/macro-debugger/view/view.ss
Normal 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))))
|
||||||
|
)
|
Loading…
Reference in New Issue
Block a user