From 4582ceb5428ef6aee881df57bbdfaea7f2ae6730 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 2 Dec 2013 09:37:18 -0500 Subject: Change parameters for time-interval and time-every. * 2d/time.scm (time-interval, time-every): Add signal parameter. --- 2d/time.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/2d/time.scm b/2d/time.scm index b4c8c07..aa975a4 100644 --- a/2d/time.scm +++ b/2d/time.scm @@ -28,18 +28,18 @@ time-interval time-delay)) -(define (time-interval ticks) - "Create a new signal that sets its value to #t every TICKS agenda -updates." - (let ((signal (make-signal #:init #t))) +(define (time-interval ticks signal) + "Create a new signal that emits the value of SIGNAL every TICKS +agenda updates." + (let ((ticker (make-signal #:init (signal-ref signal)))) (agenda-schedule-interval (lambda () - (signal-set! signal #t)) ticks) - signal)) + (signal-set! ticker (signal-ref signal))) ticks) + ticker)) -(define (time-every) - "Create a new signal that sets its value to #t every agenda update." - (time-interval 1)) +(define (time-every signal) + "Create a new signal that emits the value of SIGNAL every agenda update." + (time-interval 1 signal)) (define (time-delay ticks signal) (make-signal -- cgit v1.2.3