X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/d018d6d87c7a2c3458348f775319b6f9c4a88380..2c6153373f927d948a74b283ebb16330af8ee49a:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index f025e37..8344281 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -52,6 +52,7 @@
 
 (define-pluggable-parser module code (scanner pset)
   ;; `code' id `:' item-name [constraints] `{' c-fragment `}'
+  ;; `code' id `:' constraints `;'
   ;;
   ;; constraints ::= `[' list[constraint] `]'
   ;; constraint ::= item-name+
@@ -80,7 +81,12 @@
       (parse (seq ("code"
 		   (reason (must (kw)))
 		   (nil (must #\:))
-		   (item (or (seq ((name (must (item)))
+		   (item (or (seq ((constraints (constraints))
+				   (nil (must #\;)))
+			       (make-instance 'code-fragment-item
+					      :reason reason
+					      :constraints constraints))
+			     (seq ((name (must (item)))
 				   (constraints (? (constraints)))
 				   (fragment (fragment)))
 			       (and name