From 6540a3bcff4fe8bbf35cb680342dd526f75a81b1 Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Sat, 21 Jan 2012 16:48:57 +0900
Subject: [PATCH] xanadu - btree

---
 scsh/xanadu/b-tree.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm
index 188321c..cb24405 100644
--- a/scsh/xanadu/b-tree.scm
+++ b/scsh/xanadu/b-tree.scm
@@ -43,12 +43,14 @@
 
     (define (set-left-with-index! i value)
       (cond ((not left)
-             (display "not left"))
+             (display "not left") 
+             #f)
             (else (vector-set! left i value))))
 
     (define (set-right-with-index! i value)
       (cond ((not right)
-             (display "not right"))
+             (display "not right")
+             #t)
             (else (vector-set! right i value))))
 
     (define (get-left)