From 18c93ab0e2486db715437ac3522fe4a49bbc2468 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 31 Aug 2010 15:24:00 +0000
Subject: [PATCH] Kill infinite parsing loop by using + inside *, not * inside
 *.

---
 src/xml/xml-parser.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xml/xml-parser.scm b/src/xml/xml-parser.scm
index 8942b3e84..35d2c8374 100644
--- 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))
-- 
2.25.1