steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

clean-macosx-x86-64
John Benediktsson 2019-10-24 14:14:01 -07:00
parent 80bd0feaef
commit 61964d0f46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/classes/union/union.factor
View File

@ -22,7 +22,7 @@ M: class union-of-builtins?
drop f ; drop f ;
: fast-union-mask ( class -- n ) : 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 ) : empty-union-predicate-quot ( class -- quot )
drop [ drop f ] ; drop [ drop f ] ;