diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-10-16 06:46:19 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-10-16 06:46:19 -0700 |
| commit | afbca6b306ddd07e84c44f4d47bd04ddd3cada86 (patch) | |
| tree | 59f7253c56746b4c5bbec6f8124dc0e3616efee3 /share | |
| parent | 337ffc1e586d48b5fe6a334a6fd61587961fe261 (diff) | |
| download | txr-afbca6b306ddd07e84c44f4d47bd04ddd3cada86.tar.gz txr-afbca6b306ddd07e84c44f4d47bd04ddd3cada86.tar.bz2 txr-afbca6b306ddd07e84c44f4d47bd04ddd3cada86.zip | |
tree: node set functions and syntactic places.
* lisplib.c (defset_set_entries): Autoload entries for left,
right and key.
* share/txr/stdlib/defset.tl (left, right, key): New
simple-form defsets.
* tree.c (set_left, set_right, set_key): New functions.
(tree_init): Register intrinsics set-left, set-right and
set-key.
* tree.h (set_left, set_right, set_key): Declared.
* txr.1: key, left and right classified as accessors.
Documented set-key, set-left and set-right.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/defset.tl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/share/txr/stdlib/defset.tl b/share/txr/stdlib/defset.tl index 9920e925..f15afe4b 100644 --- a/share/txr/stdlib/defset.tl +++ b/share/txr/stdlib/defset.tl @@ -119,3 +119,12 @@ (defset sub-str (str : (from 0) (to t)) items ^(progn (replace-str ,str ,items ,from ,to) ,items)) + +(defset left (node) nleft + ^(progn (set-left ,node ,nleft) ,nleft)) + +(defset right (node) nright + ^(progn (set-right ,node ,nright) ,nright)) + +(defset key (node) nkey + ^(progn (set-key ,node ,nkey) ,nkey)) |