diff options
Diffstat (limited to '2d/game.scm')
| -rw-r--r-- | 2d/game.scm | 8 |
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)))) |