xanadu - btree

2012-01-21 16:49:31 +09:00 · 2012-01-21 16:49:31 +09:00 · 2c7e196b18
parent 6540a3bcff
commit 2c7e196b18
1 changed files with 2 additions and 2 deletions
--- a/scsh/xanadu/b-tree.scm
+++ b/scsh/xanadu/b-tree.scm
@ -43,14 +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")
-             #t)
+             #f)
            (else (vector-set! right i value))))

    (define (get-left)