2019-01-03 17:06:14 +00:00
|
|
|
#lang typed/syndicate/roles
|
|
|
|
|
|
|
|
(require-struct msg #:as Msg
|
|
|
|
#:from "driver.rkt")
|
|
|
|
|
|
|
|
(define m (msg 1 "hi"))
|
|
|
|
|
2020-11-25 16:06:50 +00:00
|
|
|
(msg-in m)
|
|
|
|
(msg-out m)
|
|
|
|
|
2019-01-03 17:06:14 +00:00
|
|
|
(match m
|
|
|
|
[(msg (bind x Int) discard)
|
|
|
|
(displayln x)])
|
|
|
|
|
|
|
|
;; error: msg/checked: arity mismatch
|
2020-11-25 16:06:50 +00:00
|
|
|
#;(msg 1 2 3)
|