From 2c7e196b18cd144c12044da0164e8de296c0629f Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 16:49:31 +0900 Subject: [PATCH] xanadu - btree --- scsh/xanadu/b-tree.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm index cb24405..95f05bb 100644 --- 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)