/usr/lib/help/tree-copy is in scheme9 2013.11.26-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | S9 LIB (tree-copy pair) ==> pair
(tree-copy pair 'with-atoms) ==> pair
Create an exact copy of an arbitrary non-cyclic cons structure.
When a second argument is passed to TREE-COPY and that argument
is not #F, then TREE-COPY will copy modifiable leaves of the tree,
too.
(tree-copy '(((a . b) (c . d)) (e . f)))
==> (((a . b) (c . d)) (e . f))
(let* ((tree (list (string #\A)))
(tree2 (tree-copy tree))
(tree3 (tree-copy tree 'with-atoms)))
(string-set! (car tree) 0 #\X)
(list tree2 tree3)) ==> (("X") ("A"))
|