From 39483147f452cbad9b8f92ad09f7b67c6748e89b Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Mon, 22 Mar 2010 09:11:27 +0000
Subject: [PATCH] fix project_attributes/2 (was not being called ever).

---
 pl/attributes.yap | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pl/attributes.yap b/pl/attributes.yap
index 1637cfc69..014703c96 100644
--- a/pl/attributes.yap
+++ b/pl/attributes.yap
@@ -186,8 +186,11 @@ call_residue(Goal,Module,Residue) :-
 
 project_delayed_goals(G,LGs) :-
 	(
-	 current_predicate(attributes:modules_with_attributes/1), false
+	 '$undefined'(modules_with_attributes(_),attributes)
 	->
+	 attributed(G, NLAV),
+	 NLAV = [_|_]
+	;
 % SICStus compatible step,
 % just try to simplify store  by projecting constraints
 % over query variables.
@@ -198,9 +201,6 @@ project_delayed_goals(G,LGs) :-
 	 project_attributes(LAV, G),
 	% now get a list of frozen goals.
 	 attributes:all_attvars(NLAV)
-	;
-	 attributed(G, NLAV),
-	 NLAV = [_|_]
 	),
 	!,
 	get_goalist_from_attvars(NLAV, LGs).