From 94c82c7fb1ef4533d0e749ea4d9796e26604275b Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 23 Nov 2024 18:50:57 -0500
Subject: Test -> packing notation.

---
 tests/test-bstruct.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'tests')

diff --git a/tests/test-bstruct.scm b/tests/test-bstruct.scm
index 7990ab2..18cb13a 100644
--- a/tests/test-bstruct.scm
+++ b/tests/test-bstruct.scm
@@ -225,8 +225,7 @@
       (let ((bv (f32vector 0 0 0 0)))
         (bstruct-pack! <vertex> bv 0
                        (xy (bstruct-alloc <vec2> (x 1) (y 2)))
-                       ((uv x) 3)
-                       ((uv y) 4))
+                       (-> uv (x 3) (y 4)))
         bv))
     (test-equal (f32vector 1 0 0 0
                            0 1 0 0
@@ -241,11 +240,12 @@
     (test-equal (u8vector 1 2 0 0 3 0 0 0 4 0 0 0)
       (let ((bv (make-bytevector (bstruct-sizeof <event>))))
         (bstruct-pack! <event> bv 0
-                       ((mouse-button type) 1)
-                       ((mouse-button button) 2)
-                       ((mouse-button state) 0)
-                       ((mouse-button x) 3)
-                       ((mouse-button y) 4))
+                       (-> mouse-button
+                           (type 1)
+                           (button 2)
+                           (state 0)
+                           (x 3)
+                           (y 4)))
         bv))
     (test-equal (u8vector 232 7 0 0 123 1 0 0)
       (let ((bv (make-bytevector (bstruct-sizeof <date>))))
-- 
cgit v1.2.3