From 7605e373dc975bf8e69f57d9e0ce99a2d9d774c7 Mon Sep 17 00:00:00 2001 Message-Id: <7605e373dc975bf8e69f57d9e0ce99a2d9d774c7.1715292792.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 26 Mar 2017 15:16:18 +0100 Subject: [PATCH] src/module-parse.lisp: Improve error recovery for `test' items. Organization: Straylight/Edgeware From: Mark Wooding --- src/module-parse.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 @@ (define-pluggable-parser module test (scanner pset) ;; `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) -- [mdw]