src/module-parse.lisp: Improve error recovery for `test' items.

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 142992e..014e7e3 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -132,7 +132,7 @@
   ;; `demo' string `;'
   (declare (ignore pset))
   (with-parser-context (token-scanner-context :scanner scanner)
-    (parse (seq ("demo" (string :string) #\;)
+    (parse (seq ("demo" (string (must :string)) (nil (must #\;)))
             (format t ";; DEMO ~S~%" string)))))
 
 (define-pluggable-parser module file (scanner pset)