From 95bc14acec58cca712e5a486214deb7b8c4f4f35 Mon Sep 17 00:00:00 2001
From: Dane Johnson <daneallenjohnson@protonmail.com>
Date: Sun, 12 Oct 2025 22:18:51 -0500
Subject: [PATCH] actually use the iterator

---
 test.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test.scm b/test.scm
index 5badd1d..5ab652c 100644
--- a/test.scm
+++ b/test.scm
@@ -82,8 +82,8 @@
 
 (define-test-suite "alambda"
   (define-test "map"
-    (assert-equal '(2 3 4)
-                  (map (alambda (_ v) (1+ v)) '((a . 1) (b . 2) (c . 3))))))
+    (assert-equal '(4 4 4)
+                  (map (alambda (i v) (+ i v)) '((3 . 1) (2 . 2) (1 . 3))))))
 
 (define-test-suite "generator"
   (define-test "test"