compute-slot-permutation ( new-slots old-slots -- triples )

Vocabulary

classes.tuple.private

Inputs

new-slots	an object
old-slots	an object

Outputs

triples

an object

Definition

USING: accessors arrays kernel sequences ;

IN: classes.tuple.private

: compute-slot-permutation
    ( new-slots old-slots -- triples )
    [ [ [ name>> ] map ] bi@ [ index ] curry map ]
    [ drop [ class>> ] map ] [ drop [ initial>> ] map ] 2tri
    3array flip ;