I'm looking for an easier way to call a Forth word from INTERPRETER ;CODE .
The following:

TARGET
: TESTT 0 DROP ;
INTERPRETER
: TESTI CREATE 0 ,
  ;CODE ' TESTT BSR RTS END-CODE

fails with TESTT ?
The following works:

TARGET
: TESTT 0 DROP ;
LABEL <TESTL> ' TESTT BRA END-CODE
ASSEMBLER
: TESTA ( -- ) <TESTL> CALL ;
INTERPRETER
: TESTI CREATE 0 ,
  ;CODE TESTA RTS END-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 Wed Apr 24 2002 - 14:33:24 PDT