tree: incorrect lookup function.

* tree.c (tn_lookup): The right case is incorrectly
chasing the left pointer.

* tests/010/tree.tl: New file.

1 files changed, 1 insertions, 1 deletions

diff --git a/tree.c b/tree.c
index 30362ddb..4d378ced 100644
--- a/tree.c
+++ b/tree.c
@@ -170,7 +170,7 @@ static val tn_lookup(struct tree *tr, val node, val key)
                  funcall2(tr->equal_fn, key, tr_key))) {
     return node;
   } else {
-    return if2(node->tn.left, tn_lookup(tr, node->tn.left, key));
+    return if2(node->tn.right, tn_lookup(tr, node->tn.right, key));
   }
 }