16 lines
324 B
Racket
16 lines
324 B
Racket
#lang scheme/base
|
|
(require '#%place)
|
|
|
|
(define (place-channel-send/recv ch msg)
|
|
(place-channel-send ch msg)
|
|
(place-channel-recv ch))
|
|
|
|
(provide place
|
|
place-sleep
|
|
place-wait
|
|
place-channel-send
|
|
place-channel-recv
|
|
place-channel?
|
|
place?
|
|
place-channel-send/recv)
|