xanadu - xml b-tree - 4

2012-01-21 01:00:17 +09:00 · 2012-01-21 01:00:17 +09:00 · 73f5db2751
parent ec6815345e
commit 73f5db2751
1 changed files with 2 additions and 2 deletions
--- 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)))