From 262df61dea7cdb66b5dd50ef38f8e4ba672a596e Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 18 Jan 2021 06:45:09 -0800
Subject: mapcar: add test covering recent regression.

* test/012/seq.tl: New test with multiple lambda
arguments and variadic function.
---
 tests/012/seq.tl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tests')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 9c3821d1..1bb4ddcc 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -17,3 +17,6 @@
 
 (stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)")
 (stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)")
+
+(test (mapcar (lambda (. args) (list . args)) '#(1 2 3) '#(4 5 6))
+      #((1 4) (2 5) (3 6)))
-- 
cgit v1.2.3