op12 ( opcode -- ? )


Vocabulary
icfp.2006

Inputs
opcodean object


Outputs
?an object


Definition
USING: kernel math namespaces sequences ;

IN: icfp.2006

: op12 ( opcode -- ? )
get-cb reg-val dup zero?
[ drop ] [ arrays get [ nth clone 0 ] keep set-nth ] if
reg-val finger set f ;