From 73f5db2751455b6e24e220b210df4212dff9c99c Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 01:00:17 +0900 Subject: [PATCH] xanadu - xml b-tree - 4 --- 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 2af54f9..87109dc 100644 --- a/scsh/xanadu/b-tree.scm +++ b/scsh/xanadu/b-tree.scm @@ -33,8 +33,8 @@ (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 1)))) - ))) + (vector-set! retr i (vector-ref v (- len i))) + )))) (define (make-b-tree) (let ((*tree (make-vector 0)))