diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-09-02 06:59:47 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-09-02 06:59:47 -0700 |
| commit | 6cf10bb9919aa27735f7d13539aaa871400777e4 (patch) | |
| tree | d0ad10c70e01a5ea668105ff1ca882b111811f60 /tests/010/cons.tl | |
| parent | bc987afb87416418841573cd858258438be9f2ea (diff) | |
| download | txr-6cf10bb9919aa27735f7d13539aaa871400777e4.tar.gz txr-6cf10bb9919aa27735f7d13539aaa871400777e4.tar.bz2 txr-6cf10bb9919aa27735f7d13539aaa871400777e4.zip | |
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.
Diffstat (limited to 'tests/010/cons.tl')
| -rw-r--r-- | tests/010/cons.tl | 14 |
1 files changed, 14 insertions, 0 deletions
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))) |