actually use the iterator

2025-10-12 22:18:51 -05:00 · 2025-10-12 22:18:51 -05:00 · 95bc14acec
commit 95bc14acec
parent c6332cd371
1 changed files with 2 additions and 2 deletions
--- 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"