stack-exchange ( m n -- quot )

Vocabulary

stack-as-data

Inputs

m	an object
n	an object

Outputs

quot

an object

Definition

USING: kernel ;

IN: stack-as-data

MACRO: stack-exchange ( m n -- quot )
    [ [ stack-nth ] [ [ stack-nth ] curry dip ] bi* ] 2keep
    swapd [ [ [ stack-set-nth ] 2curry ] dip ] dip
    [ stack-set-nth ] 2curry compose ;