10 lines
195 B
Racket
10 lines
195 B
Racket
#lang racket
|
|
|
|
(define print-17
|
|
(lambda () (printf "This is 17.\n")))
|
|
|
|
(module+ sub
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
print-17
|
|
#:exists 'append))
|