~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/lexer-impl.lisp: Don't always skip a token.
[sod]
/
src
/
lexer-proto.lisp
diff --git
a/src/lexer-proto.lisp
b/src/lexer-proto.lisp
index
c6d6f28
..
349e2a0
100644
(file)
--- a/
src/lexer-proto.lisp
+++ b/
src/lexer-proto.lisp
@@
-116,7
+116,7
@@
(export 'error)
(defparse error (:context (context token-scanner-context)
(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.
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)
`(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.
;;;--------------------------------------------------------------------------
;;; Lexical analysis utilities.