binary-op ( quot -- ? )


Vocabulary
icfp.2006

Inputs
quotan object


Outputs
?an object


Definition
USING: kernel ;

IN: icfp.2006

: binary-op ( quot -- ? )
[ get-cba ] dip swap
[ [ [ reg-val ] bi@ swap ] dip call ] dip set-reg f ; inline