fix error messages to obey standard.

This commit is contained in:
Vitor Santos Costa
2010-10-12 22:02:24 +01:00
parent fae29012a9
commit 7f70a797f4
5 changed files with 15 additions and 13 deletions

View File

@@ -296,6 +296,8 @@ system_message(error(unknown, Where)) -->
[ 'EXISTENCE ERROR- procedure ~w undefined' - [Where] ].
system_message(error(unhandled_exception,Throw)) -->
[ 'UNHANDLED EXCEPTION - message ~w unknown' - [Throw] ].
system_message(error(uninstantiation_error(TE), Where)) -->
[ 'UNINSTANTIATION ERROR - expected unbound term, got ~q' - [TE] ].
system_message(Messg) -->
[ '~q' - Messg ].