From 97304006b8b5ad4c1e695519d83d5de29c537475 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 24 Mar 2012 19:14:00 -0400
Subject: [PATCH] use of role macro

---
 os2-example.rkt | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/os2-example.rkt b/os2-example.rkt
index f794427..d3d3437 100644
--- a/os2-example.rkt
+++ b/os2-example.rkt
@@ -9,11 +9,11 @@
 
 (define (sleep n k)
   (transition k
-    (add-role (topic-subscriber (super-alarm (+ (current-inexact-milliseconds) n)))
-	      (handlers #f #f (lambda (eid topic now)
-				(lambda (k)
-				  (extend-transition (k)
-				    (delete-role eid))))))))
+    (role (topic-subscriber (super-alarm (+ (current-inexact-milliseconds) n)))
+      #:state k
+      #:id id
+      #:on-ready (begin (write `(ready ,id)) (newline) k)
+      [now (extend-transition (k) (delete-role id))])))
 
 (define (example-process delay)
   (write `(sleeping for ,delay milliseconds))