classes: define predicate-def for anonymous classes

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

diff --git a/core/classes/intersection/intersection.factor b/core/classes/intersection/intersection.factor
index 711e0dc226a1c551973dac41e2fc14c281428df6..1a76e1190346db9bc40119b9a2bab771752925d5 100644 (file)
--- a/core/classes/intersection/intersection.factor
+++ b/core/classes/intersection/intersection.factor
@@ -10,7 +10,7 @@ PREDICATE: intersection-class < class
 
 <PRIVATE
 
-: intersection-predicate-quot ( members -- quot )
+: intersection-predicate-quot ( participants -- quot )
     [
         [ drop t ]
     ] [
@@ -54,6 +54,9 @@ M: anonymous-intersection (flatten-class)
 M: anonymous-intersection class-name
     participants>> [ class-name ] map join-words ;
 
+M: anonymous-intersection predicate-def
+    participants>> intersection-predicate-quot ;
+
 PRIVATE>
 
 : define-intersection-class ( class participants -- )