don't dump stack, for now

This commit is contained in:
Vítor Santos Costa 2014-09-16 04:01:37 -05:00
parent 3168b2cfc8
commit 797e0c6be7

View File

@ -216,7 +216,7 @@ to allow user-control.
'$do_error'(Type,Message) :-
format('~w~n', [Type]),
'$current_stack'(local_sp(_,CP,Envs,CPs)),
'$stack_dump',
% '$stack_dump',
throw(error(Type,[Message|local_sp(Message,CP,Envs,CPs)])).
'$Error'(E) :-