X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..239fa5bd3dff0b38b0cebdd3438311f21c24ba4f:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 1989ebb..f87c586 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -159,6 +159,8 @@ (define-pluggable-parser module class (scanner)
   ;; `class' id [`:' id-list] `{' class-item* `}'
 
   (with-parser-context (token-scanner-context :scanner scanner)
+    (labels ((parse-item ()
+	       ;; class-item ::= property-set
     (parse (seq ("class"
 		 (name :id)
 		 (supers (? (seq (#\: (supers (list (:min 1) :id #\,)))