X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/70b33a7810c93bf411f10f37f5f8415d57b5413a..b5911ce8da34bfdd5c4515b44fd2efce7c9c233f:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index bccc37b..83828e6 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -398,7 +398,8 @@ (defun parse-class-body (scanner pset name supers)
 				  (nil (parse-raw-class-item sub-pset)))
 			      (check-unused-properties sub-pset))))
 		     (nil (error () #\})))
-		 (finalize-sod-class class)
+		 (unless (finalize-sod-class class)
+		   (setf duff t))
 		 (unless duff
 		   (add-to-module *module* class))))))))