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

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 142992ea971bd3c4f22ca0059ea6ee96e2d38c63..014e7e3d0c906a50fb18efa1fb91ab318b9a9833 100644 (file)
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -132,7 +132,7 @@ (define-pluggable-parser module test (scanner pset)
   ;; `demo' string `;'
   (declare (ignore pset))
   (with-parser-context (token-scanner-context :scanner scanner)
   ;; `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)
             (format t ";; DEMO ~S~%" string)))))
 
 (define-pluggable-parser module file (scanner pset)