xanadu - xml-tree

2012-01-21 21:58:12 +09:00 · 2012-01-21 21:58:12 +09:00 · 1daefc86d0
parent 47225606d5
commit 1daefc86d0
1 changed files with 2 additions and 2 deletions
--- a/scsh/xanadu/b-tree.scm
+++ b/scsh/xanadu/b-tree.scm
@ -104,9 +104,9 @@
                          ((= j len) 0)
                        (search-rec str (vector-ref j side-tree))))
                     ((let ((side-tree-el-second ((vector-ref side-tree (+ i 1)))))
-                        (and (string<? str
+                        (and (string>? str
                                       ((side-tree-el-first 'get-data)))
-                             (string>? str
+                             (string<? str
                                       ((side-tree-el-second 'get-data))))
                        (display "node not found in tree.") 0))
                     ((string=? str ((side-tree-el-first 'get-data)))