change-xyz ( point obj x: ( x obj -- x' ) y: ( y obj -- y' ) z: ( z obj -- z' ) -- point )

Vocabulary

benchmark.struct-arrays

Inputs

point	an object
obj	an object
x	a quotation with stack effect ( x obj -- x' )
y	a quotation with stack effect ( y obj -- y' )
z	a quotation with stack effect ( z obj -- z' )

Outputs

point

an object

Definition

USING: accessors kernel ;

IN: benchmark.struct-arrays

: change-xyz
    ( point obj x: ( x obj -- x' ) y: ( y obj -- y' ) z: ( z obj -- z' ) -- point )
    tri-curry [ change-x ] [ change-y ] [ change-z ] tri* ;
    inline