don't dump stack, for now
This commit is contained in:
parent
3168b2cfc8
commit
797e0c6be7
@ -216,7 +216,7 @@ to allow user-control.
|
|||||||
'$do_error'(Type,Message) :-
|
'$do_error'(Type,Message) :-
|
||||||
format('~w~n', [Type]),
|
format('~w~n', [Type]),
|
||||||
'$current_stack'(local_sp(_,CP,Envs,CPs)),
|
'$current_stack'(local_sp(_,CP,Envs,CPs)),
|
||||||
'$stack_dump',
|
% '$stack_dump',
|
||||||
throw(error(Type,[Message|local_sp(Message,CP,Envs,CPs)])).
|
throw(error(Type,[Message|local_sp(Message,CP,Envs,CPs)])).
|
||||||
|
|
||||||
'$Error'(E) :-
|
'$Error'(E) :-
|
||||||
|
Reference in New Issue
Block a user