Improve tokenizer and parser error message header

This commit is contained in:
John Lorentzson 2025-07-09 14:38:28 +02:00
parent b4d61c0deb
commit 100086afa2

View file

@ -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)