diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:10:13 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:10:13 +0200 |
| commit | 0a99f01d90d74ae8a7d55e34f7fb80a0166bd21d (patch) | |
| tree | 952fcfe244d9bd1b944fa240eecb017cb70e73b7 | |
| parent | Better test diffs for strings. (diff) | |
| download | calp-0a99f01d90d74ae8a7d55e34f7fb80a0166bd21d.tar.gz calp-0a99f01d90d74ae8a7d55e34f7fb80a0166bd21d.tar.xz | |
Add fallback arg for table-get.
| -rw-r--r-- | module/hnh/util/table.scm | 5 |
1 files 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)) |