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

xanadu - xml-tree

This commit is contained in:
erana 2012-01-21 21:58:12 +09:00
parent 47225606d5
commit 1daefc86d0
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

@ -104,9 +104,9 @@
((= j len) 0) ((= j len) 0)
(search-rec str (vector-ref j side-tree)))) (search-rec str (vector-ref j side-tree))))
((let ((side-tree-el-second ((vector-ref side-tree (+ i 1))))) ((let ((side-tree-el-second ((vector-ref side-tree (+ i 1)))))
(and (string<? str (and (string>? str
((side-tree-el-first 'get-data))) ((side-tree-el-first 'get-data)))
(string>? str (string<? str
((side-tree-el-second 'get-data)))) ((side-tree-el-second 'get-data))))
(display "node not found in tree.") 0)) (display "node not found in tree.") 0))
((string=? str ((side-tree-el-first 'get-data))) ((string=? str ((side-tree-el-first 'get-data)))