From 9353774be73dc48363a28c94ba5d21594af15d6e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 15 Feb 2014 15:21:36 -0500
Subject: Fix schedule-interval.

* 2d/agenda.scm (schedule-interval): Actually use the 'delay' parameter.
---
 2d/agenda.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/agenda.scm b/2d/agenda.scm
index 662aea4..2b28a54 100644
--- a/2d/agenda.scm
+++ b/2d/agenda.scm
@@ -162,7 +162,8 @@ now.  DELAY defaults to 1 if not specified."
   (schedule agenda
             (lambda ()
               (thunk)
-              (schedule-interval agenda thunk delay))))
+              (schedule-interval agenda thunk delay))
+            delay))
 
 (define (schedule-each agenda thunk)
   "Schedule THUNK within AGENDA to be applied every tick."
-- 
cgit v1.2.3