diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-12-22 07:13:33 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-12-22 07:13:33 -0800 |
| commit | 638293d5281db1276a3b64f2eb969ad99c0ee9f3 (patch) | |
| tree | b9d369af312ea49431b89ae2da96a5e9e9f3e82f /stdlib/optimize.tl | |
| parent | 75b1508c61d3805d1678a8dabf8d48b9e76c8d37 (diff) | |
| download | txr-638293d5281db1276a3b64f2eb969ad99c0ee9f3.tar.gz txr-638293d5281db1276a3b64f2eb969ad99c0ee9f3.tar.bz2 txr-638293d5281db1276a3b64f2eb969ad99c0ee9f3.zip | |
New functions: subq, subql, subqual and subst.
* eval.c (eval_init): Register new intrinsics.
* lib.c, lib.h (subq, subql, subqual, subst): New functions.
* tests/012/seq.tl: New test cases.
* stdlib/optimize.tl (subst): Function removed. The new subst
drop-in replaces this one.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'stdlib/optimize.tl')
| -rw-r--r-- | stdlib/optimize.tl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/stdlib/optimize.tl b/stdlib/optimize.tl index 11b85aca..4b7b3ec5 100644 --- a/stdlib/optimize.tl +++ b/stdlib/optimize.tl @@ -345,11 +345,6 @@ ((nequal ninsn oinsn) (append (ldiff code tail) (list ninsn))) (t code)))) -(defun subst (x y list) - (mapcar (lambda (item) - (if (equal item x) y item)) - list)) - (defun subst-preserve (x y bb li list) (let ((sub (subst x y list))) (cond |