From f4b3e46266f825a0551471eec5714c52dda625d6 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 1 Dec 2013 19:38:56 -0500 Subject: Make signal transformer an optional keyword argument. * 2d/signals.scm (make-signal): Make transformer optional. (signal-identity): Delete it. (signal-*): Use new constructor. --- 2d/game.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to '2d/game.scm') 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)))) -- cgit v1.2.3