math: rect: Add make-rect alias.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 13 Dec 2018 13:26:50 +0000 (08:26 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 13 Dec 2018 13:26:50 +0000 (08:26 -0500)
* chickadee/math/rect.scm (rect): New procedure.

chickadee/math/rect.scm

index 424614d..155fc19 100644 (file)
@@ -22,6 +22,7 @@
   #:use-module (chickadee math)
   #:use-module (chickadee math vector)
   #:export (make-rect
+            rect
             rect?
             rect-copy!
             rect-copy
   (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)