math: Rewrite rect to use packed f64 bytevectors.

1 files changed, 7 insertions, 4 deletions

diff --git a/sly/render/viewport.scm b/sly/render/viewport.scm
index 054646e..eb02825 100644
--- a/sly/render/viewport.scm
+++ b/sly/render/viewport.scm
@@ -79,10 +79,13 @@ values for CLEAR-FLAGS are 'color-buffer', 'depth-buffer',
   "Set the OpenGL state for VIEWPORT.  Clip rendering to the viewport
 area, set the clear color, and clear necessary buffers."
   (gl-enable (enable-cap scissor-test))
-  (match (viewport-area viewport)
-    (($ <rect> x y width height)
-     (gl-viewport x y width height)
-     (gl-scissor x y width height)))
+  (let* ((rect (viewport-area viewport))
+         (x (inexact->exact (rect-x rect)))
+         (y (inexact->exact (rect-y rect)))
+         (width (inexact->exact (rect-width rect)))
+         (height (inexact->exact (rect-height rect))))
+    (gl-viewport x y width height)
+    (gl-scissor x y width height))
   (match (viewport-clear-color viewport)
     (($ <color> r g b a)
      (gl-clear-color r g b a))))