\ vectored execution. this needs execute.f

\ the vector representation used BYTE ADDRESSES, however, this is
\ abstract.

\ perform execution given a variable address: extra level of indirection
macro    
: 2@ dup >m @ m> 1 + @ ;
: 2! dup >m 1 + ! m> ! ;    
: invoke 2@ execute/b ;
: ->  do-arrow stub ;    
forth

\ implementing this word as a macro leads to too much code, so i'm
\ using indirect addressing. 
: do-arrow
    0 a!!
    TOSL @ !a+
    TOSH @ !a+
    pop ;

    