shift-op-class ( info1 info2 -- newclass )

Vocabulary

compiler.tree.propagation.known-words

Inputs

info1	an object
info2	an object

Outputs

newclass

an object

Definition

USING: accessors compiler.tree.propagation.info kernel ;

IN: compiler.tree.propagation.known-words

: shift-op-class ( info1 info2 -- newclass )
    [ class>> ] bi@ 2dup [ null-class? ] either?
    [ 2drop null ] [ drop math-closure ] if ;