20 lines
484 B
Racket
20 lines
484 B
Racket
#;
|
|
(exn-pred #rx"could not convert type to a contract.*Async-Channelof")
|
|
#lang racket/load
|
|
|
|
;; Test typed-untyped interaction with channels
|
|
|
|
(module typed typed/racket
|
|
(require typed/racket/async-channel)
|
|
(: ch (Async-Channelof (Boxof Integer)))
|
|
(define ch (make-async-channel))
|
|
(: putter (-> Thread))
|
|
(define (putter)
|
|
(thread (λ () (async-channel-put ch (box 3)))))
|
|
(provide putter ch))
|
|
|
|
(require 'typed)
|
|
(putter)
|
|
(set-box! (async-channel-get ch) "not an integer")
|
|
|