From 99a74df16eefa9687463c4338e066e8275cc3101 Mon Sep 17 00:00:00 2001 Message-Id: <99a74df16eefa9687463c4338e066e8275cc3101.1716654336.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 26 May 2016 09:26:09 +0100 Subject: [PATCH 1/1] src/module-parse.lisp (`set'): Parse at least one property if no pset. Organization: Straylight/Edgeware From: Mark Wooding Allow [foo = "thing"] set; and set foo = "thing"; but not plain set; --- src/module-parse.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () #\, #\;)) -- [mdw]