13 lines
278 B
Scheme
13 lines
278 B
Scheme
|
|
(module start mzscheme
|
|
(require "link.ss"
|
|
"drsig.ss"
|
|
(lib "class.ss")
|
|
(lib "unitsig.ss")
|
|
(lib "framework.ss" "framework")
|
|
(lib "splash.ss" "framework"))
|
|
|
|
(shutdown-splash)
|
|
(define-values/invoke-unit/sig drscheme^ drscheme@)
|
|
(close-splash))
|