From 25c190d5e051052a2c95b384008db0e4aebdb5b7 Mon Sep 17 00:00:00 2001 From: erana Date: Sun, 22 Jan 2012 14:31:15 +0900 Subject: [PATCH] xanadu - xml-tree --- scsh/xanadu/b-tree.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm index d4f921b..02e92db 100644 --- a/scsh/xanadu/b-tree.scm +++ b/scsh/xanadu/b-tree.scm @@ -175,14 +175,19 @@ (vector-set! side-tree i new-node) (set! i (vector-length side-tree)))) - ((let ((data (((vector-ref side-tree i) 'get-data)))) + ((let ((data (((vector-ref side-tree i) 'get-data))) + (data2 (((vector-ref side-tree (if (< (- i 1)(vector-length side-tree)) + (+ i 1) + i) + ) 'get-data)))) (or ;;(and (string=?) ;; (string>? str data)) (and (string? data) (string=? data "")) (and (string? data) + (string? data2) (string? str data))) + (string>? str data2)));;FIXME data2! (let ((left-and-right (vector-median i side-tree))) (let ((new-node (make-b-tree-node (car left-and-right) (cadr left-and-right)))) ((new-node 'set-data!) str)