classes.algebra: fix complement predicate-def

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

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index 4d16c61749258971c49f2294c90f53369be2d64f..2622294101ee7cbf0dfa942aec98c5f1bd2d865e 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -41,7 +41,7 @@ INSTANCE: anonymous-complement classoid
 M: anonymous-complement rank-class drop 3 ;
 
 M: anonymous-complement predicate-def
-    class>> '[ [ _ instance? not ] [ t ] if* ] curry ;
+    class>> [ over [ instance? not ] [ 2drop t ] if ] curry ;
 
 M: anonymous-complement instance?
     over [ class>> instance? not ] [ 2drop t ] if ;