Make signal transformer an optional keyword argument.

* 2d/signals.scm (make-signal): Make transformer optional.
(signal-identity): Delete it.
(signal-*): Use new constructor.

1 files changed, 4 insertions, 4 deletions

diff --git a/2d/game.scm b/2d/game.scm
index c2ad0bc..1fb543a 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -170,9 +170,9 @@ time in milliseconds that has passed since the last game update."
         (handle-event e)))))
 
 ;; Keyboard and mouse signals.
-(define window-size (signal-identity (vector2 0 0)))
-(define key-last-pressed (signal-identity))
-(define mouse-position (signal-identity (vector2 0 0)))
+(define window-size (make-signal #:init (vector2 0 0)))
+(define key-last-pressed (make-signal))
+(define mouse-position (make-signal #:init (vector2 0 0)))
 (define key-signals (make-hash-table))
 (define mouse-signals (make-hash-table))
 
@@ -180,7 +180,7 @@ time in milliseconds that has passed since the last game update."
   (let ((signal (hashq-ref hash key)))
     (if (signal? signal)
         signal
-        (let ((signal (signal-identity)))
+        (let ((signal (make-signal)))
           (hashq-set! hash key signal)
           signal))))