From 0a99f01d90d74ae8a7d55e34f7fb80a0166bd21d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 16 Oct 2023 15:10:13 +0200
Subject: Add fallback arg for table-get.

---
 module/hnh/util/table.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/module/hnh/util/table.scm b/module/hnh/util/table.scm
index 268f1081..8955f70f 100644
--- a/module/hnh/util/table.scm
+++ b/module/hnh/util/table.scm
@@ -49,9 +49,8 @@
          (modify tree (if (symbol<? k (key tree)) left right)
                  tree-put k v))))
 
-(define (tree-get tree k)
-  (cond ((tree-terminal? tree) #f ; (throw 'out-of-range)
-         )
+(define* (tree-get tree k optional: default)
+  (cond ((tree-terminal? tree) default)
         ((eq? k (key tree)) (value tree))
         ((symbol<? k (key tree))
          (tree-get (left tree) k))
-- 
cgit v1.2.3