xanadu - btree

2012-01-21 16:48:57 +09:00 · 2012-01-21 16:48:57 +09:00 · 6540a3bcff
parent 280a06663c
commit 6540a3bcff
1 changed files with 4 additions and 2 deletions
--- 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)