diff options
| -rw-r--r-- | sdl2/rect.scm | 8 |
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)) |