combine-or ( set1 set2 -- )

Vocabulary

interval-sets.private

Inputs

set1	an object
set2	an object

Outputs

None

Definition

USING: combinators kernel make math sequences ;

IN: interval-sets.private

: combine-or ( set1 set2 -- )
    {
        { [ over empty? ] [ % drop ] }
        { [ dup empty? ] [ drop % ] }
        [
            2dup [ first ] bi@ <= [ swap ] unless
            or-step combine-or
        ]
    } cond ;