diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-12-05 13:09:12 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-05 13:09:12 -0500 |
| commit | 1bad7879529103b97608cfdf3757ba5cd1186b61 (patch) | |
| tree | 41d7c20d778e9836eaf350ed13fa8638b9f5a06b | |
| parent | 7612713d904aee52c978e560158aa2c8cee949a7 (diff) | |
rect: Allow getters to be inlined.
| -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)) |