From 97a454af3b3f9a713e14b6e1463bf300999bdcea Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 7 Jan 2014 20:55:57 -0500 Subject: Update docstrings. * 2d/agenda.scm (make-time-segment, wait): Change docstrings. --- 2d/agenda.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/2d/agenda.scm b/2d/agenda.scm index bf86f22..4b28c16 100644 --- a/2d/agenda.scm +++ b/2d/agenda.scm @@ -53,7 +53,7 @@ (queue segment-queue)) (define (make-time-segment time . callbacks) - "Create a new time segment at TIME and enqueus everything in the + "Create a new time segment at TIME and enqueues everything in the list CALLBACKS." (let ((segment (%make-time-segment time (make-q)))) ;; Enqueue all callbacks @@ -207,6 +207,6 @@ tick." (%clear-agenda (current-agenda))) (define* (wait #:optional (delay 1)) - "Yield coroutine and schdule the continuation to be run after DELAY -ticks." + "Yield coroutine and schedule the continuation to be run after DELAY +ticks. DELAY is 1 by default." (yield (cut schedule <> delay))) -- cgit v1.2.3