(tuple-slot-quot) ( slot assoc n -- quot )

Vocabulary

combinators.tuple.private

Inputs

slot	an object
assoc	an object
n	an object

Outputs

quot

an object

Definition

USING: accessors assocs generalizations kernel quotations ;

IN: combinators.tuple.private

:: (tuple-slot-quot) ( slot assoc n -- quot )
    slot name>> assoc at
    [ slot initial>> :> initial { n ndrop initial } >quotation ]
    unless* ;