Deference one signal instead of two.

* 2d/game.scm (draw): Use window-size instead of window-width and
  window-height.

1 files changed, 3 insertions, 3 deletions

diff --git a/sly/game.scm b/sly/game.scm
index 888d10d..ddfdd45 100644
--- a/sly/game.scm
+++ b/sly/game.scm
@@ -30,6 +30,7 @@
   #:use-module (sly event)
   #:use-module (sly math)
   #:use-module (sly signal)
+  #:use-module (sly vector)
   #:use-module (sly window)
   #:export (draw-hook
             after-game-loop-error-hook
@@ -72,9 +73,8 @@ becoming completely unresponsive and possibly crashing."
         (frame-interval (interval frame-rate)))
     (define (draw dt alpha)
       "Render a frame."
-      (let ((width (signal-ref window-width))
-            (height (signal-ref window-height)))
-        (gl-viewport 0 0 width height))
+      (let ((size (signal-ref window-size)))
+        (gl-viewport 0 0 (vx size) (vy size)))
       (gl-clear (clear-buffer-mask color-buffer depth-buffer))
       (run-hook draw-hook dt alpha)
       (SDL:gl-swap-buffers))