From: John Benediktsson Date: Tue, 2 Aug 2022 18:01:42 +0000 (-0700) Subject: classes.algebra: fix complement predicate-def X-Git-Tag: 0.99~1223 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=6cd4e60af78d7a086891011978d69edb1ea38b7b classes.algebra: fix complement predicate-def --- 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 ;