I can't do this because of "Address out of range" on BRA:

TARGET
: TESTT 0 DROP ;
INTERPRETER
: TESTI CREATE 0 ,
  ;CODE [+TARGET] ' TESTT [PREVIOUS] BRA END-CODE

I guess this is it:

TARGET
: TESTT 0 DROP ;
LABEL <TESTL> ' TESTT BRA END-CODE
INTERPRETER
: TESTI CREATE 0 ,
  ;CODE <TESTL> BRA END-CODE

> -----Original Message-----
> Sent: Wednesday, April 24, 2002 16:33
>
> I'm looking for an easier way to call a Forth word from
> INTERPRETER ;CODE .
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe swiftx" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/swiftx -- check them out!
----------------------------------------------------------------------
THIS LIST IS NOT FOR BUG REPORTS! Send bug reports to support_at_forth.com.
Received on Thu Apr 25 2002 - 06:16:46 PDT