From 5ab2a97852e9fea10da118ae400c9e2f520337bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa=20II?= <vsc@dcc.fc.up.pt>
Date: Tue, 20 Apr 2010 23:09:46 +0100
Subject: [PATCH] use meta-predicates for aggregate (like SWI does now).

---
 library/aggregate.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/library/aggregate.pl b/library/aggregate.pl
index e2aae1feb..b0c1f2948 100755
--- a/library/aggregate.pl
+++ b/library/aggregate.pl
@@ -42,12 +42,12 @@
 :- use_module(library(error)).
 :- use_module(library(lists)).
 
-:- module_transparent
-	foreach/2,
-	aggregate/3,
-	aggregate/4,
-	aggregate_all/3,
-	aggregate_all/4.
+:- meta_predicate
+	foreach(0,0),
+	aggregate(?,0,-),
+	aggregate(?,?,0,-),
+	aggregate_all(?,0,-),
+	aggregate_all(?,?,0,-).
 
 /** <module> Aggregation operators on backtrackable predicates