syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use of role macro

This commit is contained in:
Tony Garnock-Jones 2012-03-24 19:14:00 -04:00
parent 1d328c2030
commit 97304006b8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
os2-example.rkt
View File

@ -9,11 +9,11 @@
(define (sleep n k) (define (sleep n k)
(transition k (transition k
(add-role (topic-subscriber (super-alarm (+ (current-inexact-milliseconds) n))) (role (topic-subscriber (super-alarm (+ (current-inexact-milliseconds) n)))
(handlers #f #f (lambda (eid topic now) #:state k
(lambda (k) #:id id
(extend-transition (k) #:on-ready (begin (write `(ready ,id)) (newline) k)
(delete-role eid)))))))) [now (extend-transition (k) (delete-role id))])))
(define (example-process delay) (define (example-process delay)
(write `(sleeping for ,delay milliseconds)) (write `(sleeping for ,delay milliseconds))