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

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