diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-01-07 20:00:03 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-01-07 20:00:03 -0500 |
| commit | 9b52e9c83c56eef77037fdd7c31e8874e96d4f6a (patch) | |
| tree | ae837ff395fc3abdd8d9b1c33f712333784e5e64 /2d/time.scm | |
| parent | 01c04ba62ac137b15ff512353bb72cd4efae5cac (diff) | |
Add new scheduling procedures and rename existing ones.
* 2d/agenda.scm (agenda-schedule, schedule): Rename.
(agenda-schedule-interval, schedule-interval): Rename.
(schedule-next, schedule-every): New procedures.
* 2d/sprite.scm: Use schedule-every.
* 2d/time.scm (time-every): Use schedule-interval.
Diffstat (limited to '2d/time.scm')
| -rw-r--r-- | 2d/time.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/time.scm b/2d/time.scm index c9c9237..f39bc0e 100644 --- a/2d/time.scm +++ b/2d/time.scm @@ -34,7 +34,7 @@ be a signal, in which case the stored value of the signal will be emitted." (let ((ticker (make-root-signal (signal-ref-maybe value)))) - (agenda-schedule-interval + (schedule-interval (lambda () (signal-set! ticker (signal-ref-maybe value))) ticks) |