binary-op ( word interval-quot post-proc-quot -- )

Vocabulary

compiler.tree.propagation.known-words

Inputs

word	an object
interval-quot	an object
post-proc-quot	an object

Outputs

None

Definition

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

IN: compiler.tree.propagation.known-words

: binary-op ( word interval-quot post-proc-quot -- )
    [ [ binary-op-interval ] curry ] dip
    [ [ [ [ binary-op-class ] ] ] dip [ 2bi ] curry compose ]
    dip [ <class/interval-info> ] compose compose
    "outputs" set-word-prop ;