From 2e10d78084c21bb47b877f24096134ab8b700a46 Mon Sep 17 00:00:00 2001 From: erana Date: Sat, 21 Jan 2012 18:53:35 +0900 Subject: [PATCH] xanadu - xml-tree --- scsh/xanadu/xml.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scsh/xanadu/xml.scm b/scsh/xanadu/xml.scm index 5b94089..a7c5b7d 100644 --- a/scsh/xanadu/xml.scm +++ b/scsh/xanadu/xml.scm @@ -44,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)