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

Vocabulary

slots.macros

Inputs

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

Outputs

tuple

an object

Definition

USING: kernel ;

IN: slots.macros

: change-slot*
    ( tuple name quot: ( ..a old -- ..b new ) -- ..b tuple )
    [ change-slot ] 2curry keep ; inline