xanadu - -btree

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