update-slot ( old-values n class initial -- value )

Vocabulary

classes.tuple.private

Inputs

old-values	an object
n	an object
class	an object
initial	an object

Outputs

value

an object

Definition

USING: classes kernel sequences ;

IN: classes.tuple.private

: update-slot ( old-values n class initial -- value )
    pick [
        [ [ swap nth dup ] dip instance? ] dip swap
        [ drop ] [ nip ] if
    ] [ 3nip ] if ;