scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

xanadu - xml b-tree - 4

This commit is contained in:
erana 2012-01-21 01:00:17 +09:00
parent ec6815345e
commit 73f5db2751
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/xanadu/b-tree.scm
View File

@ -33,8 +33,8 @@
(do ((i 0 (+ i 1))) (do ((i 0 (+ i 1)))
((= i len) (list retl retr)) ((= i len) (list retl retr))
(vector-set! retl i (vector-ref v i)) (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) (define (make-b-tree)
(let ((*tree (make-vector 0))) (let ((*tree (make-vector 0)))