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

xanadu - btree

This commit is contained in:
erana 2012-01-21 16:48:57 +09:00
parent 280a06663c
commit 6540a3bcff
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,12 +43,14 @@
(define (set-left-with-index! i value) (define (set-left-with-index! i value)
(cond ((not left) (cond ((not left)
(display "not left")) (display "not left")
#f)
(else (vector-set! left i value)))) (else (vector-set! left i value))))
(define (set-right-with-index! i value) (define (set-right-with-index! i value)
(cond ((not right) (cond ((not right)
(display "not right")) (display "not right")
#t)
(else (vector-set! right i value)))) (else (vector-set! right i value))))
(define (get-left) (define (get-left)