syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Sleep utility

This commit is contained in:
Tony Garnock-Jones 2016-11-21 11:51:48 +13:00
parent c595c638b2
commit b2c795c57a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/syndicate/drivers/timestate.rkt
View File

@ -1,7 +1,8 @@
#lang syndicate/actor
(provide (struct-out later-than)
stop-when-timeout)
stop-when-timeout
sleep)
(require/activate syndicate/drivers/timer)
@ -19,3 +20,8 @@
(let ((timer-id (gensym 'timeout)))
(on-start (send! (set-timer timer-id relative-msecs 'relative)))
(stop-when (message (timer-expired timer-id _)) body ...)))
(define (sleep sec)
(define timer-id (gensym 'sleep))
(until (message (timer-expired timer-id _))
(on-start (send! (set-timer timer-id (* sec 1000.0) 'relative)))))