12 lines
284 B
Scheme
12 lines
284 B
Scheme
|
|
(module init scheme
|
|
|
|
;; Set the printer:
|
|
(current-print (let ([pretty-printer
|
|
(lambda (v)
|
|
(unless (void? v)
|
|
(pretty-print v)))])
|
|
pretty-printer))
|
|
|
|
(provide (all-from-out scheme)))
|