summaryrefslogtreecommitdiffstats
path: root/tests/012/iter.tl
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2024-04-16 21:46:37 -0700
committerKaz Kylheku <kaz@kylheku.com>2024-04-16 21:46:37 -0700
commit262cf47d2c701bf71143f312427b1f4fa140deb9 (patch)
tree0828d9e7641147aa0687cb65c48404ae12533fdb /tests/012/iter.tl
parent12c24e79baa50ce2e345956bcbabe567c5339130 (diff)
downloadtxr-262cf47d2c701bf71143f312427b1f4fa140deb9.tar.gz
txr-262cf47d2c701bf71143f312427b1f4fa140deb9.tar.bz2
txr-262cf47d2c701bf71143f312427b1f4fa140deb9.zip
New function: iter-cat.
* eval.c (eval_init): Register iter-cat intrinsic. * lib.h (struct seq_iter): New union member dargs. (iter_catv): Declared. * lib.c (seq_iter_get_cat, seq_iter_peek_cat): New static functions. (si_cat_ops): New static structure. (iter_catv): New function. * tests/012/iter.tl: New tests. * txr.1: Documented.
Diffstat (limited to 'tests/012/iter.tl')
-rw-r--r--tests/012/iter.tl5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/012/iter.tl b/tests/012/iter.tl
index 1b1bfd1e..0823849e 100644
--- a/tests/012/iter.tl
+++ b/tests/012/iter.tl
@@ -90,3 +90,8 @@
115792089237316195423570985008687907853269984665640564039457584007913129639934
115792089237316195423570985008687907853269984665640564039457584007913129639933))
+(mtest
+ (str-seq (iter-cat "abc" "def" "ghi" #\j..(succ #\z)))
+ "abcdefghijklmnopqrstuvwxyz"
+ (iter-cat) nil
+ (list-seq (iter-cat nil)) nil)