pad-slots ( seq class -- seq' class )

Vocabulary

classes.tuple.private

Inputs

seq	an object
class	an object

Outputs

seq'	an object
class	an object

Definition

USING: accessors classes.tuple kernel math sequences ;

IN: classes.tuple.private

: pad-slots ( seq class -- seq' class )
    [ all-slots ] keep 2over 2length 2dup >
    [ [ nip swap ] 2dip too-many-slots ] [
        drop
        [ tail-slice [ [ initial>> ] map append ] unless-empty ]
        curry dip
    ] if ; inline