pad-shapes ( sa0 sa1 -- sa0' sa1' )

Vocabulary

arrays.shaped

Inputs

sa0	an object
sa1	an object

Outputs

sa0'	an object
sa1'	an object

Definition

USING: accessors kernel sequences ;

IN: arrays.shaped

: pad-shapes ( sa0 sa1 -- sa0' sa1' )
    2dup [ shape>> ] bi@ 2dup longer length [ 1 pad-head ] curry
    bi@ [ shaped-like ] bi-curry@ bi* ;