classes.union: woops, reduce in fast-union-mask.

diff --git a/core/classes/union/union.factor b/core/classes/union/union.factor
index b90d756bce6ca3043bc044f116bca13b46cb6972..e7a0acf955e5368423fae5b351ed14c476e81759 100644 (file)
--- a/core/classes/union/union.factor
+++ b/core/classes/union/union.factor
@@ -22,7 +22,7 @@ M: class union-of-builtins?
     drop f ;
 
 : fast-union-mask ( class -- n )
-    flatten-class 0 [ class>type 2^ bitor ] each ;
+    flatten-class 0 [ class>type 2^ bitor ] reduce ;
 
 : empty-union-predicate-quot ( class -- quot )
     drop [ drop f ] ;