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

2019-10-24 14:14:01 -07:00 · 2019-10-24 14:14:01 -07:00 · 61964d0f46
parent 80bd0feaef
commit 61964d0f46
1 changed files with 1 additions and 1 deletions
--- 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 ] ;