mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 13:23:47 +00:00
0aeb6864ee
library/error.nl: Remove call to spy(error), since it didn't work if error.nl was compiled rather than interpreted, and it's not really necessary anyway.
26 lines
718 B
Plaintext
26 lines
718 B
Plaintext
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 1995 University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU Library General
|
|
% Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% This version is for debugging with np.
|
|
|
|
error(Message) :-
|
|
format("<Software Error: ~s>\n", [Message]),
|
|
ancestors(Anc),
|
|
( Anc \= [] ->
|
|
write('Stack trace:'), nl,
|
|
stack_trace(Anc),
|
|
interactive_display(1, Anc)
|
|
;
|
|
write('Stack trace unavailable.'), nl
|
|
),
|
|
fail.
|
|
|
|
stack_trace([]).
|
|
stack_trace([Anc|Ancs]) :-
|
|
print(Anc), write('.'), nl,
|
|
stack_trace(Ancs).
|
|
|