diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 07:35:36 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-23 07:35:36 -0800 |
| commit | bf2fbbc765012a3eafa8ef235ab568bde942fdd8 (patch) | |
| tree | 3824f435eaf66fb102f4b0d06d7df274d97dc768 /tests | |
| parent | 5e72e73394c005dc816b10cdcb5930499e39ad7b (diff) | |
| download | txr-bf2fbbc765012a3eafa8ef235ab568bde942fdd8.tar.gz txr-bf2fbbc765012a3eafa8ef235ab568bde942fdd8.tar.bz2 txr-bf2fbbc765012a3eafa8ef235ab568bde942fdd8.zip | |
New list-builder method: oust.
* autoload.c (build_set_entries): Add oust symbol.
* stdlib/build.tl (list-builder postinit): Call the self
argument self instead of bc, for consistency with other
methods.
(list-builder oust): New method.
(list-builder-flets): Add local function oust.
* tests/012/seq.tl: New tests.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/seq.tl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 1706e6df..ae42a13e 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -13,6 +13,11 @@ (test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2)) (test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2)) +(mtest + (build (add 1 2) (oust)) nil + (build (add 1 2) (oust '(3 4)) (add 5)) (3 4 5) + (build (add 1 2) (oust '(3 4) '(5)) (add 6)) (3 4 5 6)) + (set *print-circle* t) (stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)") |