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:49:31 +09:00
parent 6540a3bcff
commit 2c7e196b18
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

@ -43,14 +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) #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) #f)
(else (vector-set! right i value)))) (else (vector-set! right i value))))
(define (get-left) (define (get-left)