From 6cf10bb9919aa27735f7d13539aaa871400777e4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 2 Sep 2021 06:59:47 -0700
Subject: New function: delcons.

* eval.c (eval_init): Register delcons intrinsic.

* lib.[ch] (delcons): New function.

* tests/010/cons.tl: New file.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.
---
 tests/010/cons.tl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/010/cons.tl

(limited to 'tests/010/cons.tl')

diff --git a/tests/010/cons.tl b/tests/010/cons.tl
new file mode 100644
index 00000000..de293652
--- /dev/null
+++ b/tests/010/cons.tl
@@ -0,0 +1,14 @@
+(load "../common")
+
+(let ((x (list* 1 2 3 4)))
+  (mtest
+    (set x (delcons x x)) (2 3 . 4)
+    (set x (delcons x x)) (3 . 4)
+    (set x (delcons x x)) 4
+    (set x (delcons x x)) 4))
+
+(let ((x (list* 1 2 3 4 5)))
+  (mtest
+    (delcons (cdr x) x) (1 3 4 . 5)
+    (delcons (cddr x) x) (1 3 . 5)
+    (delcons (cdr x) x) (1 . 5)))
-- 
cgit v1.2.3