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

make it clear we are in error processing

Browse Source
This commit is contained in:
Vitor Santos Costa
2016-09-21 14:57:46 -05:00
parent 368cfd99d5
commit b5e1476a20
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pl/errors.yap
View File

@@ -107,6 +107,7 @@ system_error(Type,Goal,Culprit) :-
fail. fail.
'$LoopError'(_, _) :- '$LoopError'(_, _) :-
flush_output, flush_output,
'$close_error',
fail. fail.
'$process_error'('$forward'(Msg), _) :- '$process_error'('$forward'(Msg), _) :-
@@ -114,7 +115,6 @@ system_error(Type,Goal,Culprit) :-
throw( '$forward'(Msg) ). throw( '$forward'(Msg) ).
'$process_error'('$abort', Level) :- '$process_error'('$abort', Level) :-
!, !,
'$process_error'(abort, Level).
'$process_error'(abort, Level) :- '$process_error'(abort, Level) :-
!, !,
( (