From e3f1adc4014641223ab3f5697e550439e10ddca8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 18 May 2022 07:53:01 -0700 Subject: ffi: fix broken test. * tests/017/ffi-misc.tl: Fix incorrect test whose loop body does not execute. A remaining issue here is why the diagnostics about unbound functions and variables in the loop body get swept under the rug. --- tests/017/ffi-misc.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/017/ffi-misc.tl b/tests/017/ffi-misc.tl index d0785513..6e41f482 100644 --- a/tests/017/ffi-misc.tl +++ b/tests/017/ffi-misc.tl @@ -80,9 +80,9 @@ (sizeof abc) 1 (znew abc) #S(abc a fals b fals c fals)) -(each-match ((a b c) (rperm '(fals true) 3)) +(each-match ((@a @b @c) (rperm '(fals true) 3)) (let ((s (new abc a a b b c c))) - (test (ffi-get (ffi-put s (ffi abc)) (ffi-abc)) s))) + (vtest (ffi-get (ffi-put s (ffi abc)) (ffi abc)) s))) (mstest (copy-cptr (cptr-int 3)) "#" -- cgit v1.2.3