X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/db6c3279edc260e3e301df1c9b082b374cd002c7..450a4be6a6d832ce1e54169d9cc7740f5a04dc89:/src/lexer-proto.lisp

diff --git a/src/lexer-proto.lisp b/src/lexer-proto.lisp
index c6d6f28..349e2a0 100644
--- a/src/lexer-proto.lisp
+++ b/src/lexer-proto.lisp
@@ -116,7 +116,7 @@
 
 (export 'error)
 (defparse error (:context (context token-scanner-context)
-		 (&key ignore-unconsumed)
+		 (&key ignore-unconsumed force-progress)
 		 sub &optional (recover t))
   "Try to parse SUB; if it fails then report an error, and parse RECOVER.
 
@@ -135,7 +135,8 @@
   `(parse-error-recover ,(parser-scanner context)
 			(parser () ,sub)
 			(parser () ,recover)
-			:ignore-unconsumed ,ignore-unconsumed))
+			:ignore-unconsumed ,ignore-unconsumed
+			:force-progress ,force-progress))
 
 ;;;--------------------------------------------------------------------------
 ;;; Lexical analysis utilities.