All pastes #238635 Raw Edit

Mine

public text v1 · immutable
·published 2006-11-05 01:51 UTC
rendered paste body
: skip-input ( count -- )
    >in @ + >in ! ;

: read-unparsed-string ( -- addr u )
    source drop >in @ + source + over - dup skip-input ;

: get-vm-evaluate-address ( -- vm-addr )
    s" :evaluate-code" search-label drop @ ;

: eval-string ( addr u -- )
    scopy get-vm-evaluate-address vm dump-stack ;

: eval ( -- )
    read-unparsed-string eval-string ;