interval/-safe ( i1 i2 -- i3 )

Vocabulary

math.intervals

Inputs

i1	an object
i2	an object

Outputs

i3

an object

Definition

USING: generic kernel math ;

IN: math.intervals

: interval/-safe ( i1 i2 -- i3 )
    \ integer \ / ?lookup-method [ interval/ ] [ 2drop f ] if ;