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

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index f90f360..b72d7c8 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -178,7 +178,7 @@
                                       :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 () #\, #\;))