maybe-add ( elt seq -- seq' )

Vocabulary

compiler.tree.propagation.constraints

Inputs

elt	an object
seq	an object

Outputs

seq'

an object

Definition

USING: kernel sequences ;

IN: compiler.tree.propagation.constraints

: maybe-add ( elt seq -- seq' )
    2dup member? [ nip ] [ swap suffix ] if ;