make it clear we are in error processing

This commit is contained in:
Vitor Santos Costa 2016-09-21 14:57:46 -05:00
parent 368cfd99d5
commit b5e1476a20

View File

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