23 lines
812 B
Scheme
23 lines
812 B
Scheme
(module stepper+xml-tool mzscheme
|
|
(require (lib "unit.ss")
|
|
(lib "tool.ss" "drscheme")
|
|
"stepper-tool.ss"
|
|
"xml-tool.ss")
|
|
|
|
(provide tool@)
|
|
|
|
;; the xml and stepper tools are combined, so that the stepper can create XML
|
|
;; snips. note that both of these tools provide 'void' for phase1 and phase2
|
|
;; (which together make up the tool-exports^), so we can provide either one
|
|
;; of these for the compound unit. Doesn't matter.
|
|
|
|
;; NNNURRRG! This is not true any more. But that should be okay, because the
|
|
;; stepper-tool phase1 is the non-void one. -- JBC, 2006-09-28
|
|
|
|
(define tool@
|
|
(compound-unit/infer
|
|
(import drscheme:tool^)
|
|
(export STEPPER-TOOL)
|
|
(link xml-tool@
|
|
(((STEPPER-TOOL : drscheme:tool-exports^)) stepper-tool@)))))
|