diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

one_arg

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-12-06 01:50:11 -06:00
parent ea72cd09e3
commit 474fa2fe14
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/messages.yap
View File

@ -290,7 +290,10 @@ main_message(error(consistency_error(Who)), Level, _LC) -->
main_message(error(domain_error(Who , Type), _Where), Level, _LC) --> main_message(error(domain_error(Who , Type), _Where), Level, _LC) -->
!, !,
[ ' ~a: ~q does not belong to domain ~a,' - [Level,Type,Who], nl ]. [ ' ~a: ~q does not belong to domain ~a,' - [Level,Type,Who], nl ].
main_message(error(evaluation_error(What, Who), _Where), Level, _LC) --> main_message(error(evaluation_error(What), _Where), Level, _LC) -->
!,
[ ' ~a: ~w during evaluation of arithmetic expressions,' - [Level,What], nl ].
main_message(error(evaluation_error(What, Who), _Where), Level, _LC) -->
!, !,
[ ' ~a: ~w caused ~a during evaluation of arithmetic expressions,' - [Level,Who,What], nl ]. [ ' ~a: ~w caused ~a during evaluation of arithmetic expressions,' - [Level,Who,What], nl ].
main_message(error(existence_error(Type , Who), _Where), Level, _LC) --> main_message(error(existence_error(Type , Who), _Where), Level, _LC) -->