New feature: messages with keyword arguments!

[sod] / src / module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 95220852b25ed6e7e07e8da35c8b23d4d49d9962..a45892216da5c362beb0b2493576078e30f7ac16 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -220,6 +220,7 @@ (defun parse-class-body (scanner pset name supers)
                 ;; names.
                 (parse-declarator
                  scanner base-type
+                 :keywordp t
                  :kernel (parser ()
                            (seq ((name-a :id)
                                  (name-b (? (seq (#\. (id :id)) id))))