9 lines
246 B
Scheme
9 lines
246 B
Scheme
(module embed-me6 mzscheme
|
|
(with-output-to-file "stdout"
|
|
(lambda ()
|
|
(printf "This is 6\n")
|
|
(with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])
|
|
(printf "~a\n" (dynamic-require '(lib "etc.ss") 'true))))
|
|
'append))
|
|
|