Unnamed

\ copy string to vm
scopy ( string-address length -- virtual-machine-stack: vm-address length )

\ call vm
vm ( vm-address -- )

\ call the evaluate word on the vm
: eval ( -- )
    source drop >in @ + source + over - dup >r scopy >in @ r> + >in !
    s" :evaluate-code" search-label drop @ vm dump-stack ;

\ usage example
eval 1 2 +
prints: { 1 }  3