summaryrefslogtreecommitdiff
path: root/sdl2/rect.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2020-12-05 13:09:12 -0500
committerDavid Thompson <dthompson2@worcester.edu>2020-12-05 13:09:12 -0500
commit1bad7879529103b97608cfdf3757ba5cd1186b61 (patch)
tree41d7c20d778e9836eaf350ed13fa8638b9f5a06b /sdl2/rect.scm
parent7612713d904aee52c978e560158aa2c8cee949a7 (diff)
rect: Allow getters to be inlined.
Diffstat (limited to 'sdl2/rect.scm')
-rw-r--r--sdl2/rect.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/sdl2/rect.scm b/sdl2/rect.scm
index 8b71622..1fd3af9 100644
--- a/sdl2/rect.scm
+++ b/sdl2/rect.scm
@@ -45,14 +45,14 @@
(let ((bv (s32vector x y width height)))
(%make-rect bv (bytevector->pointer bv))))
-(define (rect-x rect)
+(define-inlinable (rect-x rect)
(s32vector-ref (rect-bv rect) 0))
-(define (rect-y rect)
+(define-inlinable (rect-y rect)
(s32vector-ref (rect-bv rect) 1))
-(define (rect-width rect)
+(define-inlinable (rect-width rect)
(s32vector-ref (rect-bv rect) 2))
-(define (rect-height rect)
+(define-inlinable (rect-height rect)
(s32vector-ref (rect-bv rect) 3))