From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 26 May 2016 08:26:09 +0000 (+0100)
Subject: src/module-parse.lisp (`set'): Parse at least one property if no pset.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/99a74df16eefa9687463c4338e066e8275cc3101

src/module-parse.lisp (`set'): Parse at least one property if no pset.

Allow

	[foo = "thing"] set;

and

	set foo = "thing";

but not plain

	set;
---

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index f90f360..b72d7c8 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -178,7 +178,7 @@ (define-pluggable-parser module set (scanner pset)
 				       :location (p-location prop))
 				      (setf (p-seenp prop) t))
 				    pset))
-			(parse (skip-many (:min 0)
+			(parse (skip-many (:min (if pset 0 1))
 				 (error (:ignore-unconsumed t)
 				     (parse-property scanner module-pset)
 				   (skip-until () #\, #\;))