custom-constraints ( #call quot -- )

Vocabulary

compiler.tree.propagation.simple

Inputs

#call	an object
quot	an object

Outputs

None

Definition

USING: accessors compiler.tree.propagation.constraints
continuations kernel sequences ;

IN: compiler.tree.propagation.simple

: custom-constraints ( #call quot -- )
    [ [ in-d>> ] [ out-d>> ] bi append ] dip with-datastack
    first assume ;