12 lines
286 B
Racket
12 lines
286 B
Racket
|
#lang typed/syndicate/roles
|
||
|
|
|
||
|
|
(run-ground-dataspace (U)
|
||
|
|
(spawn (U)
|
||
|
|
(start-facet x
|
||
|
|
(field [y Int 0])
|
||
|
|
(define/dataflow x (add1 (ref y)))
|
||
|
|
(displayln (add1 (ref x)))
|
||
|
|
;; print 2
|
||
|
|
#f))
|
||
|
|
)
|