Replace amap/afilter/afor-each with alambda, lambda which destructures a pair into two args

test.scm

@@ -80,9 +80,10 @@
   (define-test "vacuous"
     (assert-equal #t ((conjoin) '(some donkus)))))
 
-(define-test-suite "map"
-  (define-test "test"
-    (assert-equal )))
+(define-test-suite "alambda"
+  (define-test "map"
+    (assert-equal '(2 3 4)
+                  (map (alambda (_ v) (1+ v)) '((a . 1) (b . 2) (c . 3))))))
 
 (define-test-suite "generator"
   (define-test "test"