From 750bebdae85be66b856b320fde54c5fbe2266ff8 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Thu, 18 Mar 2010 05:52:08 +0000
Subject: [PATCH] (parse_header_xml): Skip comments.

---
 src/database.c |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/database.c b/src/database.c
index e9928db..209940d 100644
--- a/src/database.c
+++ b/src/database.c
@@ -1023,7 +1023,9 @@ parse_header_xml (xmlTextReaderPtr reader, MSymbol tags[4],
        </tags>
        ...
      </TAG0> */
-  xmlTextReaderRead (reader);	/* <TAG0 ...> */
+  do {
+    xmlTextReaderRead (reader);	/* <TAG0 ...> */
+  } while (xmlTextReaderNodeType (reader) == XML_READER_TYPE_COMMENT);
   tags[0] = msymbol ((char *) xmlTextReaderConstLocalName (reader));
   xmlTextReaderRead (reader);	/* <tags> */
   depth = xmlTextReaderDepth (reader);
-- 
1.7.10.4