9 lines
306 B
Racket
9 lines
306 B
Racket
(module embed-me6b racket/base
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
(lambda ()
|
|
(printf "This is 6\n")
|
|
(with-handlers ([void (lambda (exn) (printf "no etc.ss\n"))])
|
|
(printf "~a\n" (and (dynamic-require 'racket/fixnum #f) #t))))
|
|
#:exists 'append))
|
|
|