summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/math/rect.scm12
1 files 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