diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-05-26 21:25:20 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-05-26 21:25:20 -0700 |
| commit | 89eb0e18c6af1dc2150e34af19e81b1ad3b52f81 (patch) | |
| tree | 1de1a1a957087d318582c2126c0d07c3355f64f2 /tests | |
| parent | 5b3398c05bfdb7dcb448d66814256b509e45b7e5 (diff) | |
| download | txr-89eb0e18c6af1dc2150e34af19e81b1ad3b52f81.tar.gz txr-89eb0e18c6af1dc2150e34af19e81b1ad3b52f81.tar.bz2 txr-89eb0e18c6af1dc2150e34af19e81b1ad3b52f81.zip | |
interpose: use seq_iter and seq_build.
* lib.c (interpose): non-list cases consolidated into
one, which uses generic iteration and building.
* tests/012/seq.tl: New tests
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/seq.tl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 262c7739..c3000b5e 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -883,3 +883,14 @@ (mtest (ref 1..6 0.0) (1.0 2.0 3.0 4.0 5.0)) + +(mtest + (interpose 1 '()) () + (interpose 1 '(a)) (a) + (interpose 1 '(a b)) (a 1 b) + (interpose 1 '(a b c)) (a 1 b 1 c)) + +(mtest + (interpose 1 "") "" + (interpose 1 "a") "a" + (interpose 1 "ab") (#\a 1 #\b)) |