From d046c7d20fd283c90495d3af4bb53d1cfb2a0812 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Thu, 8 Aug 2024 14:44:48 +0100
Subject: misc

---
 tests/map.bth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/map.bth')

diff --git a/tests/map.bth b/tests/map.bth
index 9f739bb..c3170bd 100644
--- a/tests/map.bth
+++ b/tests/map.bth
@@ -1,5 +1,5 @@
 (set! map' (fn (f ix in out)
-              (if (< ix (len in))
+              (if (< ix (# in))
                   (let (elem (in ix)
                         felem (f elem)
                         newix (+ 1 ix))
-- 
cgit v1.2.3