20 lines
456 B
Racket
20 lines
456 B
Racket
#lang typed/racket
|
|
|
|
(: p Place)
|
|
(: p2 Place)
|
|
(: p3 Place)
|
|
|
|
(define p (dynamic-place 'typed-racket-test/succeed/places-helper 'double-place))
|
|
(place-channel-put/get p 10)
|
|
(place-wait p)
|
|
|
|
|
|
(define p2 (dynamic-place 'typed-racket-test/succeed/places-helper 'double-place))
|
|
(place-channel-put/get p2 -2+4i)
|
|
(place-wait p2)
|
|
|
|
|
|
(define p3 (dynamic-place 'typed-racket-test/succeed/places-helper 'echo-place))
|
|
(place-channel-put/get p3 'echo-this)
|
|
(place-wait p3)
|