diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-10-06 08:17:04 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-10-06 08:17:04 -0400 |
commit | 22a23a79d9325f8f7ba963fae706bca46de2a491 (patch) | |
tree | 0152e12acaec16e95e55d72909a57bda364fc7d2 /2d/coroutine.scm | |
parent | d71e246ccdba27b22749c33bd5daad28b3a763e2 (diff) |
Move wait procedure into agenda module.
Diffstat (limited to '2d/coroutine.scm')
-rw-r--r-- | 2d/coroutine.scm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/2d/coroutine.scm b/2d/coroutine.scm index ba7659e..3e4d256 100644 --- a/2d/coroutine.scm +++ b/2d/coroutine.scm @@ -25,10 +25,8 @@ #:export (coroutine colambda codefine - codefine* - wait) - #:replace (yield) - #:use-module (2d agenda)) + codefine*) + #:replace (yield)) (define (coroutine thunk) "Calls a procedure that can yield a continuation." @@ -76,8 +74,3 @@ keyword arguments that is run as a coroutine." (define (yield callback) "Yield continuation to a CALLBACK procedure." (abort-to-prompt 'coroutine-prompt callback)) - -(define* (wait #:optional (delay 1)) - "Yield coroutine and schdule the continuation to be run after DELAY -ticks." - (yield (lambda (resume) (agenda-schedule resume delay)))) |