23 lines
464 B
Racket
23 lines
464 B
Racket
#lang typed/syndicate
|
|
|
|
(define (wf1)
|
|
(spawn
|
|
(with-facets
|
|
([onn (facet (assert (tuple 'on))
|
|
(on start (printf "on\n")))]
|
|
[off (facet (on (asserted (tuple 'go))
|
|
(stop off
|
|
(start onn)))
|
|
(on start (printf "off\n")))])
|
|
off)))
|
|
|
|
(run-ground-dataspace
|
|
(wf1)
|
|
(spawn (start-facet _ (assert (tuple 'go)))))
|
|
|
|
;; BAD
|
|
#;(spawn
|
|
(with-facets
|
|
[on (facet (on start (start on)))]
|
|
on))
|