summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/mouse.scm2
-rw-r--r--2d/signals.scm9
-rw-r--r--2d/time.scm4
-rw-r--r--2d/window.scm2
4 files changed, 8 insertions, 9 deletions
diff --git a/2d/mouse.scm b/2d/mouse.scm
index 1c118b2..bd11678 100644
--- a/2d/mouse.scm
+++ b/2d/mouse.scm
@@ -33,7 +33,7 @@
(define mouse-last-down (make-signal))
(define mouse-last-up (make-signal))
-(define mouse-position (make-signal #:init (vector2 0 0)))
+(define mouse-position (make-signal (vector2 0 0)))
(define (mouse-down? button)
"Create a signal for the state of BUTTON. Value is #t when mouse
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)
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)
diff --git a/2d/window.scm b/2d/window.scm
index 159a9a2..f520c7a 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -53,7 +53,7 @@
(fullscreen? #f))
(%make-window title resolution fullscreen?))
-(define window-size (make-signal #:init (vector2 0 0)))
+(define window-size (make-signal (vector2 0 0)))
(register-event-handler
'video-resize