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))))))
|
(point-out-source (source c))))))
|
||||||
|
|
||||||
(define-condition tokenizer-error (usc-error)
|
(define-condition tokenizer-error (usc-error)
|
||||||
((%context-string :initform "Error in tokenizer:")))
|
((%context-string :initform "Tokenizing error:")))
|
||||||
|
|
||||||
(define-condition parser-error (usc-error)
|
(define-condition parser-error (usc-error)
|
||||||
())
|
((%context-string :initform "Syntax error:")))
|
||||||
|
|
||||||
|
|
||||||
(defun error-parser (source format-control &rest format-arguments)
|
(defun error-parser (source format-control &rest format-arguments)
|
||||||
|
|
Loading…
Add table
Reference in a new issue