interval-integer-op ( i1 i2 quot -- i3 )

Vocabulary

math.intervals

Inputs

i1	an object
i2	an object
quot	an object

Outputs

i3

an object

Definition

USING: kernel math sequences ;

IN: math.intervals

: interval-integer-op ( i1 i2 quot -- i3 )
    [ 2dup [ interval>points [ first integer? ] both? ] both? ]
    dip [ 2drop [-inf,inf] ] if ; inline