From 63df1926ee9bde67982f1296cf41d3afc0a148eb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 1 Oct 2021 08:14:22 -0400
Subject: math: rect: Fix record type printer.

---
 chickadee/math/rect.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/chickadee/math/rect.scm b/chickadee/math/rect.scm
index 690d779..2b94014 100644
--- a/chickadee/math/rect.scm
+++ b/chickadee/math/rect.scm
@@ -83,12 +83,6 @@
   rect?
   (bv unwrap-rect))
 
-(define (display-rect rect port)
-  (format port "#<rect x: ~f y: ~f width: ~f height: ~f>"
-          (rect-x rect) (rect-y rect) (rect-width rect) (rect-height rect)))
-
-(set-record-type-printer! <rect> display-rect)
-
 (define (make-null-rect)
   (wrap-rect (make-f32vector 4 0.0)))
 
@@ -181,6 +175,12 @@
   "Restrict Y to the portion of the y axis covered by RECT."
   (clamp (rect-bottom rect) (rect-top rect) y))
 
+(define (display-rect rect port)
+  (format port "#<rect x: ~f y: ~f width: ~f height: ~f>"
+          (rect-x rect) (rect-y rect) (rect-width rect) (rect-height rect)))
+
+(set-record-type-printer! <rect> display-rect)
+
 
 ;;;
 ;;; In-place operations
-- 
cgit v1.2.3