Work in progress. Mostly bug fixing.

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 1989ebbf3a68c81d8fa35ac4151e21bf9395864e..f87c586707399f35891bdfcf75e6b86cc40c8a1d 100644 (file)
--- 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 #\,)))