From 61964d0f4677df2e9c1266d61aca116dcc26e54f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 24 Oct 2019 14:14:01 -0700 Subject: [PATCH] classes.union: woops, reduce in fast-union-mask. --- core/classes/union/union.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/classes/union/union.factor b/core/classes/union/union.factor index b90d756bce..e7a0acf955 100644 --- 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 ] ;