change-slot ( ..a tuple name quot: ( ..a old -- ..b new ) -- ..b )

Vocabulary

slots.macros

Inputs

tuple	an object
name	an object
quot	a quotation with stack effect ( ..a old -- ..b new )

Outputs

None

Definition

USING: kernel ;

IN: slots.macros

: change-slot
    ( ..a tuple name quot: ( ..a old -- ..b new ) -- ..b )
    [ [ slot ] ] dip compose [ set-slot ] 2bi ; inline