10 lines
226 B
Scheme
10 lines
226 B
Scheme
#lang scheme/base
|
|
|
|
(require scheme/runtime-path
|
|
(for-syntax scheme/base))
|
|
(define-runtime-path file '(lib "etc.ss")) ; in mzlib
|
|
(with-output-to-file "stdout"
|
|
(lambda () (printf "This is 1c~n"))
|
|
#:exists 'append)
|
|
|