diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-12-12 22:29:12 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-12-12 22:29:12 -0500 |
commit | 627f3ef4da15ac23f9959e72ed5cfb1855650b05 (patch) | |
tree | c73bfcf6c605a7d06902d5c54d657bdbb7e27db2 /2d/time.scm | |
parent | df45474ac007467d5f837dfc6444e460b5b4d765 (diff) |
Make init a non-keyword argument in make-signal procedure.
* 2d/signals.scm (make-signal): Change parameter list.
* 2d/mouse.scm (mouse-position): Remove #:init keyword.
* 2d/time.scm (time-interval, time-delay): Remove #:init keyword.
* 2d/window.scm (window-size): Remove #:init keyword.
Diffstat (limited to '2d/time.scm')
-rw-r--r-- | 2d/time.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/2d/time.scm b/2d/time.scm index cacfae4..6a6607e 100644 --- a/2d/time.scm +++ b/2d/time.scm @@ -31,7 +31,7 @@ (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)))) + (let ((ticker (make-signal (signal-ref signal)))) (agenda-schedule-interval (lambda () (signal-set! ticker (signal-ref signal))) ticks) @@ -43,7 +43,7 @@ agenda updates." (define (time-delay ticks signal) (make-signal - #:init (signal-ref signal) + (signal-ref signal) #:filter (lambda (value old from) (wait ticks) #t) |