From 5458da8376214f6b4ba996cae00e10b5633a4c9d Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 22:07:11 +0900 Subject: [PATCH] xanadu - xml-tree --- scsh/xanadu/b-tree.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/xanadu/b-tree.scm b/scsh/xanadu/b-tree.scm index 8a01954..fd96047 100644 --- a/scsh/xanadu/b-tree.scm +++ b/scsh/xanadu/b-tree.scm @@ -96,12 +96,12 @@ (let* ((side-tree (tree side-string)) (len (vector-length side-tree))) (do ((i 0 (+ i 1))) - ((let* ((side-tree-el-first (vector-ref side-tree i))) + ((let ((side-tree-el-first (vector-ref side-tree i))) (cond ((>= i len);;last node (do ((j 0 (+ j 1))) ((= j len) 0) (search-rec str (vector-ref side-tree j)))) - ((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