From 1291aa76a9c85ac50bc5ebe968fd332bdfe80af0 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 27 Feb 2024 20:48:00 -0800
Subject: tuples: convert tuple generation to seq_build.

* lib.c (tuples_func): Replace list accumulation
with make_like with seq_build.

* tests/012/seq.tl: Fix one test case here which no
longer errors out. It produces a tuple which is not
a string, due to the inclusion of a non-character
object.
---
 tests/012/seq.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/012')

diff --git a/tests/012/seq.tl b/tests/012/seq.tl
index 407af84a..144c6971 100644
--- a/tests/012/seq.tl
+++ b/tests/012/seq.tl
@@ -263,7 +263,7 @@
   list)
 
 (test
-  (lforce (tuples 2 "abc" 3)) :error)
+  (lforce (tuples 2 "abc" 3)) ("ab" (#\c 3)))
 
 (test
   (take 3 (tuples 3 (range 0))) ((0 1 2) (3 4 5) (6 7 8)))
-- 
cgit v1.2.3