cord-2both ( cord-a cord-b quot combine fallback -- result )

Vocabulary

sequences.cords

Inputs

cord-a	an object
cord-b	an object
quot	an object
combine	an object
fallback	an object

Outputs

result

an object

Definition

USING: accessors kernel ;

IN: sequences.cords

:: cord-2both
    ( cord-a cord-b quot combine fallback -- result )
    cord-a cord-b 2dup [ cord? ] both? [
        [ [ head>> ] bi@ quot call ]
        [ [ tail>> ] bi@ quot call ] 2bi combine call
    ] [ fallback call ] if ; inline