From 7000a923b2a2162c56af8ae6eb79bad672fdd984 Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 18:52:19 +0900 Subject: [PATCH] xanadu - xml-tree --- scsh/xanadu/xml.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scsh/xanadu/xml.scm b/scsh/xanadu/xml.scm index b000b50..5b94089 100644 --- a/scsh/xanadu/xml.scm +++ b/scsh/xanadu/xml.scm @@ -31,8 +31,9 @@ (contents "")) (define (tagify! c tagged) - (cond ((= tagged 0) (string c)) - ((> tagged 0) "") ;; FIXME make node, descend one level + (cond ((> tagged 0) "") + ((= tagged 0) (if (eq? c #\>) "" (string c))) + ;; FIXME make node, descend one level (else ""))) (define (xml-read-in-file contents) @@ -43,8 +44,8 @@ (set! tagged (+ tagged 1))) ((and (> tagged 0)(eq? c #\<)) (set! tagged (+ tagged 1))) - ((and (= tagged 0)(eq? c #\>)) - (set! tagged (- tagged 1))) + ;;((and (= tagged 0)(eq? c #\>)) + ;; (set! tagged (- tagged 1))) ((and (> tagged 0)(eq? c #\>)) (set! tagged (- tagged 1))) ((< tagged 0)