15 lines
416 B
Racket
15 lines
416 B
Racket
#lang racket/base
|
|
(require racket/place)
|
|
|
|
(define (go)
|
|
(place pch
|
|
(place-channel-put pch 28)))
|
|
|
|
(module+ main
|
|
(define p (go))
|
|
(define n (place-channel-get p))
|
|
(void (place-wait p))
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
(lambda () (printf "~a\n" n))
|
|
#:exists 'append))
|