X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/284f1fa2ace3e276052ff1bd7d66442500e693da..1622ed8e30b05ba9025520cde3e68d186c8c7e50:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 9522085..a458922 100644
--- 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))))