diff options
| -rw-r--r-- | chickadee/math/rect.scm | 12 |
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 |