Commit e5426215 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected invalid-character-error reporting.

parent 5ed4308c
......@@ -1930,15 +1930,9 @@ Voir les commandes TABLE DES FICHIERS, SUPPRIMER."
(defun call-with-error-reporting (task thunk)
(labels ((invalid-character-error (err)
(io-format task "~%ERREUR: ~?~%"
"CARACTÈRE INVALIDE ~A~:[~*~; (~D~)~] EN POSITION ~D"
(destructuring-bind (ch pos) (scanner-error-format-arguments err)
(list
(if (<= 32 (char-code ch))
(format nil "'~A'" ch)
(format nil ".~A." (char-code ch)))
(<= 32 (char-code ch))
(char-code ch)
pos)))
"CARACTÈRE INVALIDE ~A~:[~*~; (~D)~] EN POSITION ~D"
(scanner-error-format-arguments err)
(scanner-error-column err))
(pret task))
(report-error (err)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment