diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-02-27 20:48:00 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-02-27 20:48:00 -0800 |
| commit | 1291aa76a9c85ac50bc5ebe968fd332bdfe80af0 (patch) | |
| tree | 1b60d04d27b3d82672172188c6778bc240e8af2d /tests | |
| parent | b3a440ca242a07ed86f89d06208f15757d947e12 (diff) | |
| download | txr-1291aa76a9c85ac50bc5ebe968fd332bdfe80af0.tar.gz txr-1291aa76a9c85ac50bc5ebe968fd332bdfe80af0.tar.bz2 txr-1291aa76a9c85ac50bc5ebe968fd332bdfe80af0.zip | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/seq.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |