From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 14:16:18 +0000 (+0100)
Subject: src/module-parse.lisp: Improve error recovery for `test' items.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/7605e373dc975bf8e69f57d9e0ce99a2d9d774c7

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
--- 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)