diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-02-15 15:21:36 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-02-15 15:21:36 -0500 |
| commit | 9353774be73dc48363a28c94ba5d21594af15d6e (patch) | |
| tree | af42ee56aa22e3c1fb3a95b6d55ed01e8e91cf1b | |
| parent | 299ef46b8c6f373038c55771d24950a80c0e58ea (diff) | |
Fix schedule-interval.
* 2d/agenda.scm (schedule-interval): Actually use the 'delay' parameter.
| -rw-r--r-- | 2d/agenda.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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." |