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 ] dip ] bi* ] 2keep swapd
    '[ _ _ stack-set-nth _ _ stack-set-nth ] ;