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