1 files changed, 4 insertions, 0 deletions
diff --git a/module/hnh/util/tree.scm b/module/hnh/util/tree.scm
index 6c4f765d..95328b5f 100644
--- a/module/hnh/util/tree.scm
+++ b/module/hnh/util/tree.scm
@@ -3,6 +3,7 @@
   #:use-module (hnh util)
   #:export (make-tree left-subtree
                       right-subtree
+                      tree-node
                       length-of-longst-branch
                       tree-map))
 
@@ -18,6 +19,9 @@
             (make-tree pred? head)
             (make-tree pred? tail)))))
 
+(define (tree-node tree)
+  (car tree))
+
 (define (left-subtree tree)
   (list-ref tree 1))