tree_map func treeWhat it does:
applies a function to each element of a treeDefined in: /web/philip/tcl/ad-trees.tcl
Source code:
set root [eval_unary $func [head $tree]]
set subtrees [map "tree_map $func" [tail $tree]]
cons $root $subtrees