Kill infinite parsing loop by using + inside *, not * inside *.

diff --git a/src/xml/xml-parser.scm b/src/xml/xml-parser.scm
index 8942b3e842faa0120052d90e4a0c194fe62b5ad6..35d2c83741e67321f1415f95b06a974ca67ee730 100644 (file)
--- a/src/xml/xml-parser.scm
+++ b/src/xml/xml-parser.scm
@@ -1312,7 +1312,7 @@ USA.
            (require-success "Malformed markup declaration"
              (seq
               (* (alt (match
-                       (alt (* (char-set a1))
+                       (alt (+ (char-set a1))
                             (seq (char #\") (* (char-set a2)) (char #\"))
                             (seq (char #\') (* (char-set a3)) (char #\'))))
                       parse-parameter-entity-reference))