builtin-union-predicate-quot ( builtin-classes -- quot )

Vocabulary

classes.union.private

Inputs

builtin-classes

an object

Outputs

quot

an object

Definition

USING: classes.builtin kernel kernel.private math.private
quotations sequences ;

IN: classes.union.private

: builtin-union-predicate-quot ( builtin-classes -- quot )
    flatten-builtins dup length 1 =
    [ first class>type [ eq? ] curry [ tag ] prepose ] [
        builtin-union-mask 1quotation
        [ tag 1 swap fixnum-shift-fast ]
        [ fixnum-bitand 0 eq? not ] surround
    ] if ;