From 42347585d37edaabb1f10345330d8e7d143af21f Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 4 Jun 2016 23:59:14 +0100
Subject: [PATCH] fix warning

---
 pl/boot.yap | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index 344355083..b7dd818e3 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -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),