binary-op ( stack quot: ( x y -- z ) -- stack )

Vocabulary

rpn

Inputs

stack	an object
quot	a quotation with stack effect ( x y -- z )

Outputs

stack

an object

Definition

USING: kernel lists ;

IN: rpn

: binary-op ( stack quot: ( x y -- z ) -- stack )
    [ uncons uncons swapd ] dip dip cons ; inline