From 65e8ed2908e2c682b7f75673540e33788d1cd764 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sun, 14 Jun 2009 22:57:07 -0500
Subject: [PATCH] use more efficient predicate.

---
 pl/corout.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/corout.yap b/pl/corout.yap
index 45a55af8a..21509fcea 100644
--- a/pl/corout.yap
+++ b/pl/corout.yap
@@ -636,7 +636,7 @@ call_residue(Goal,Residue) :-
 
 '$project_module'([], _, _).
 '$project_module'([Mod|LMods], LIV, LAV) :-
-	current_predicate(Mod:project_attributes/2),
+	'$pred_exists'(project_attributes(LIV, LAV),Mod),
 	'$notrace'(Mod:project_attributes(LIV, LAV)), !,
 	attributes:all_attvars(NLAV),
 	'$project_module'(LMods,LIV,NLAV).