17 lines
400 B
Scheme
17 lines
400 B
Scheme
|
|
(module init scheme
|
|
(require "enter.ss"
|
|
"help.ss")
|
|
|
|
;; Set the printer:
|
|
(current-print (let ([pretty-printer
|
|
(lambda (v)
|
|
(unless (void? v)
|
|
(pretty-print v)))])
|
|
pretty-printer))
|
|
|
|
(provide (all-from-out scheme
|
|
"enter.ss"
|
|
"help.ss")))
|
|
|