Improve tokenizer and parser error message header
This commit is contained in:
parent
b4d61c0deb
commit
100086afa2
1 changed files with 2 additions and 2 deletions
|
@ -36,10 +36,10 @@
|
|||
(point-out-source (source c))))))
|
||||
|
||||
(define-condition tokenizer-error (usc-error)
|
||||
((%context-string :initform "Error in tokenizer:")))
|
||||
((%context-string :initform "Tokenizing error:")))
|
||||
|
||||
(define-condition parser-error (usc-error)
|
||||
())
|
||||
((%context-string :initform "Syntax error:")))
|
||||
|
||||
|
||||
(defun error-parser (source format-control &rest format-arguments)
|
||||
|
|
Loading…
Add table
Reference in a new issue