From bfe29465a8a9ab0e92d224f98e63e36f5ff43ba9 Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 11:38:49 +0900 Subject: [PATCH] xanadu - -btree --- scsh/xanadu/b-tree.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm index 87109dc..e73f925 100644 --- a/scsh/xanadu/b-tree.scm +++ b/scsh/xanadu/b-tree.scm @@ -33,7 +33,7 @@ (do ((i 0 (+ i 1))) ((= i len) (list retl retr)) (vector-set! retl i (vector-ref v i)) - (vector-set! retr i (vector-ref v (- len i))) + (vector-set! retr (- len (- i 1)) (vector-ref v (- len (- i 1)))) )))) (define (make-b-tree)