From bf2fbbc765012a3eafa8ef235ab568bde942fdd8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 23 Feb 2022 07:35:36 -0800 Subject: 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. --- tests/012/seq.tl | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests/012') 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#)") -- cgit v1.2.3