Resolved merge.

[factor.git] / core / classes / algebra / algebra.factor

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index c774ef1c1dce1fe4d0eb8e6cb3aded20e55d75d8..3c39848d0247a10e1fbb61da3a660310a10548ff 100755 (executable)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -215,7 +215,7 @@ M: anonymous-complement (classes-intersect?)
 : min-class ( class seq -- class/f )\r
     over [ classes-intersect? ] curry filter\r
     [ drop f ] [\r
-        [ nip ] [ [ class<= ] with all? ] 2bi [ peek ] [ drop f ] if\r
+        [ nip ] [ [ class<= ] with all? ] 2bi [ last ] [ drop f ] if\r
     ] if-empty ;\r
 \r
 GENERIC: (flatten-class) ( class -- )\r