22 lines
560 B
Scheme
22 lines
560 B
Scheme
|
|
#|
|
|
|
|
This first time this is loaded, it loads all of drscheme and invokes
|
|
the main unit, starting up drscheme. After that, it just provides
|
|
all of the names in the tools library, for use defining keybindings
|
|
|
|
|#
|
|
|
|
(module tool-lib mzscheme
|
|
(require "private/link.ss"
|
|
"private/drsig.ss"
|
|
(lib "class.ss")
|
|
(lib "unitsig.ss")
|
|
(lib "framework.ss" "framework")
|
|
(lib "splash.ss" "framework"))
|
|
|
|
(shutdown-splash)
|
|
(define-values/invoke-unit/sig drscheme:tool^ drscheme@)
|
|
(close-splash)
|
|
(provide-signature-elements drscheme:tool^))
|