racket/collects/tests/mzscheme/embed-me5.ss
2005-05-27 18:56:37 +00:00

7 lines
160 B
Scheme

(module embed-me5 mzscheme
(require (lib "mred.ss" "mred"))
(with-output-to-file "stdout"
(lambda () (printf "This is 5: ~s\n" button%))
'append))