diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-05-09 17:45:55 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-05-09 17:45:55 -0700 |
| commit | 96715da165569922e1efa584eb0ce4f4d272c46d (patch) | |
| tree | 08e2b19c2c2a9637d2f70785c5a6a3a47de365d3 /share | |
| parent | 8a7a4963a6cdf0a0d8b7145aefb4a40f5f26c673 (diff) | |
| download | txr-96715da165569922e1efa584eb0ce4f4d272c46d.tar.gz txr-96715da165569922e1efa584eb0ce4f4d272c46d.tar.bz2 txr-96715da165569922e1efa584eb0ce4f4d272c46d.zip | |
tree: new tree-peek function.
* tree.c (tn_peek_next): New static function.
(tree_peek): New function.
(tree_init): Register tree-peek intrinsic.
* tree.h (tree_peek): Declared.
* txr.1: Documented.
* tests/010/tree.c: Work tree-peek into existing test case.
* share/txr/stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/doc-syms.tl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/share/txr/stdlib/doc-syms.tl b/share/txr/stdlib/doc-syms.tl index 084b4228..2355066e 100644 --- a/share/txr/stdlib/doc-syms.tl +++ b/share/txr/stdlib/doc-syms.tl @@ -480,9 +480,9 @@ ("trace" "N-02833733") ("ixany" "N-02391683") ("-rng+" "N-00BEA6DF") + ("*stddebug*" "N-006566FB") ("buf-put-ulong" "N-020CF007") ("tree-insert-node" "N-008B4AD9") - ("*stddebug*" "N-006566FB") ("remq*" "N-00B85CD2") ("reject" "N-031DC0F2") ("signum" "D-001E") @@ -727,6 +727,7 @@ ("iflet" "N-02DA21F6") ("apply" "N-026C3723") ("let" "N-013AF20B") + ("make-similar-tree" "N-030D1EF5") ("refset" "N-01A419FB") ("chain" "N-00C53CF7") ("carray-cptr" "N-03E001C5") @@ -948,7 +949,7 @@ ("carray-blank" "N-00DD8DF1") ("minor" "N-02F0F482") ("cons" "N-02D6CEDA") - ("tree-next" "N-0049D1B0") + ("tree-next" "N-02443382") ("size-t" "N-03258244") ("set-iflags" "N-02061924") ("eilseq" "N-036B1BDB") @@ -1092,6 +1093,7 @@ ("command-put-buf" "N-02AE3A31") ("tree-case" "N-03D834A5") ("exception-subtype-p" "N-02E7F869") + ("tree-peek" "N-02443382") ("dlopen" "N-037C4BFE") ("partition-by" "N-000167DF") ("buf-get-i8" "N-0013E55F") @@ -1977,13 +1979,13 @@ ("wrap*" "N-026DDCEC") ("int-carray" "N-00797A01") ("glob-mark" "N-0188409B") + ("*stdin*" "N-006566FB") ("chr-tolower" "N-015A58D0") ("append-each" "N-0105F01D") ("whilet" "N-0154DC75") ("pppred" "N-038E636C") ("flo-dig" "N-00998CE7") ("opip" "N-01937C5A") - ("*stdin*" "N-006566FB") ("last" "D-0079") ("copy-file" "N-019D6582") ("eisconn" "N-036B1BDB") |