* 2SWAP ( a,a b,b -- b,b a,a ) double-cell swap, see >SWAP and >2DUP simulate: : 2SWAP LOCALS| B1 B2 A1 A2 | B2 B1 A2 A1 ;
2SWAP
( a,a b,b -- b,b a,a )
>SWAP
>2DUP
simulate: : 2SWAP LOCALS| B1 B2 A1 A2 | B2 B1 A2 A1 ;
core ordinary primitive