fix warning

This commit is contained in:
Vitor Santos Costa 2016-06-04 23:59:14 +01:00
parent b2cec5467c
commit 42347585d3

View File

@ -284,7 +284,6 @@ private(_).
yap_flag( unknown, Action, fail),
'$handle_error'(Action,G0,M0),
clause_location(Call, Caller),
source_module(M),
strip_module(M0:G0,M1,NGoal),
throw(error(evaluation(undefined,M0:G0), [[g|g(M1:NGoal)],[p|Call],[e|Caller],[h|g(M0:G0)]])).
@ -1357,10 +1356,6 @@ bootstrap(F) :-
!,
close(Stream).
% '$undefp'([M0|G0], Default) :-
% writeln(M0:G0),
% fail.
'$loop'(Stream,exo) :-
prolog_flag(agc_margin,Old,0),