From 7c224a6e64ed658600585230609152d5d83f43bb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 13 Dec 2018 08:26:50 -0500
Subject: math: rect: Add make-rect alias.

* chickadee/math/rect.scm (rect): New procedure.
---
 chickadee/math/rect.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/chickadee/math/rect.scm b/chickadee/math/rect.scm
index 424614d..155fc19 100644
--- a/chickadee/math/rect.scm
+++ b/chickadee/math/rect.scm
@@ -22,6 +22,7 @@
   #:use-module (chickadee math)
   #:use-module (chickadee math vector)
   #:export (make-rect
+            rect
             rect?
             rect-copy!
             rect-copy
@@ -92,14 +93,15 @@
   (f32vector-set! (unwrap-rect rect) i x))
 
 (define-inlinable (make-rect x y width height)
-  "Create a new rectangle WIDTH x HEIGHT in size whose bottom left
-corner is located at (X, Y)."
   (with-new-rect rect
     (rect-set! rect 0 x)
     (rect-set! rect 1 y)
     (rect-set! rect 2 width)
     (rect-set! rect 3 height)))
 
+(define-inlinable (rect x y width height)
+  (make-rect x y width height))
+
 (define (rect-copy! source-rect target-rect)
   "Copy TARGET-RECT to SOURCE-RECT."
   (bytevector-copy! (unwrap-rect source-rect)
-- 
cgit v1.2.3