From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 31 Aug 2010 15:24:00 +0000 (+0000)
Subject: Kill infinite parsing loop by using + inside *, not * inside *.
X-Git-Tag: 20101212-Gtk~73^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18c93ab0e2486db715437ac3522fe4a49bbc2468;p=mit-scheme.git

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

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))