From 1bad7879529103b97608cfdf3757ba5cd1186b61 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 5 Dec 2020 13:09:12 -0500 Subject: rect: Allow getters to be inlined. --- sdl2/rect.scm | 8 ++++---- 1 file 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)) -- cgit v1.2.3