syndicate-2017/racket/typed/example.rkt

#lang typed/syndicate

#;(require racket/base)

(spawn ⊥
       (facet _
              (assert "hello")))

(spawn ⊥
       (facet _
              (on (asserted "hello")
                  (unsafe-do (printf "got hello\n")))))
wip on typed syndicate 2017-10-18 14:57:07 +00:00			`#lang typed/syndicate`

example runs 2017-11-01 20:09:07 +00:00			`#;(require racket/base)`
wip on typed syndicate 2017-10-18 14:57:07 +00:00
example runs 2017-11-01 20:09:07 +00:00			`(spawn ⊥`
			`(facet _`
			`(assert "hello")))`
wip on typed syndicate 2017-10-18 14:57:07 +00:00
example runs 2017-11-01 20:09:07 +00:00			`(spawn ⊥`
			`(facet _`
			`(on (asserted "hello")`
			`(unsafe-do (printf "got hello\n")))))`