From 266ea5411812a28402680497a871c68a837bf1c0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 18 May 2008 20:33:06 +0000
Subject: 	Fix AW/412 	* algebra/aggcat.spad.pamphlet
 (=$TableAggregate): Fix thinko.

---
 src/algebra/aggcat.spad.pamphlet | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/algebra')

diff --git a/src/algebra/aggcat.spad.pamphlet b/src/algebra/aggcat.spad.pamphlet
index af724ec4..dee08f1b 100644
--- a/src/algebra/aggcat.spad.pamphlet
+++ b/src/algebra/aggcat.spad.pamphlet
@@ -1927,7 +1927,8 @@ TableAggregate(Key:SetCategory, Entry:SetCategory): Category ==
        eq?(s,t) => true
        #s ~= #t => false
        for k in keys s repeat
-	 (e := search(k, t)) case "failed" or (e::Entry) ~= s.k => false
+	 (e := search(k, t)) case "failed" or (e::Entry) ~= s.k => 
+            return false
        true
 
      map(f: Record(key:Key,entry:Entry)->Record(key:Key,entry:Entry), t: %): % ==
-- 
cgit v1.2.3