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 f90f360ae61f2dfcecaaf87fadadfedc7cd2ac5b..b72d7c80a25638cafbdbc8ade61dd0096962956c 100644 (file)
--- 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 () #\, #\;))