cord-2map ( cord-a cord-b quot fallback -- cord' )

Vocabulary

sequences.cords

Inputs

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

Outputs

cord'

an object

Definition

USING: accessors kernel ;

IN: sequences.cords

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