From 6cd4e60af78d7a086891011978d69edb1ea38b7b Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 2 Aug 2022 11:01:42 -0700 Subject: [PATCH] classes.algebra: fix complement predicate-def --- core/classes/algebra/algebra.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor index 4d16c61749..2622294101 100644 --- 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 ; -- 2.34.1