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/signals.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/signals.scm')
| -rw-r--r-- | 2d/signals.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/2d/signals.scm b/2d/signals.scm index 85cc5af..cd5cba0 100644 --- a/2d/signals.scm +++ b/2d/signals.scm @@ -79,10 +79,9 @@ "Keep all values." #t) -(define* (make-signal #:optional #:key +(define* (make-signal #:optional init #:key (transformer identity-transform) (filter keep-all) - (init #f) (connectors '())) "Create a new signal with initial value INIT that uses the given TRANSFORMER procedure to process incoming values from another @@ -200,7 +199,7 @@ list." "Create a new signal that accumulates the current and previous values of SIGNAL using PROC." (make-signal - #:init init + init #:transformer (lambda (value prev from) (proc value prev)) #:connectors (list signal))) @@ -264,7 +263,7 @@ of SIGNALS." PREDICATE is true. INIT specifies the value that is set if PREDICATE is never true." (make-signal - #:init init + init #:filter (lambda (value prev from) (signal-ref predicate)) #:transformer (lambda (value prev from) @@ -276,7 +275,7 @@ is never true." PREDICATE is true. INIT specifies the value that is set if PREDICATE is never true." (make-signal - #:init init + init #:filter (lambda (value prev from) (not (signal-ref predicate))) #:transformer (lambda (value prev from) |