Re: Maybe a newbie question..

On Mar 3, 2:07=A0am, sb...@[EMAIL PROTECTED]
 wrote:
>
> CREATE MYTABLE
> ' WORD1 , ' WORD2 ,
>
> SEL_WORD VAR1 @[EMAIL PROTECTED]
 2* MYTABLE + @[EMAIL PROTECTED]
 EXECUTE ;
>
> or
>
> SEL_WORD VAR1 @[EMAIL PROTECTED]
 0=3D IF WORD1 ELSE WORD2 THEN ;
>
Have you looked at vectored execution? If VAR1 is only used by
SEL_WORD, you can store an XT in it:

: SEL_WORD  VAR1 @[EMAIL PROTECTED]
 EXECUTE ;

Most cross compilers supply DEFER to simplify this usage. You can say:

DEFER SEL_WORD  ' WORD1 IS SEL_WORD

This allocates storage for the xt and causes startup code to load it
with the xt for WORD1. DEFER isn't in the ANS standard but you can do
everything it does manually. For example:

VARIABLE 'sel_word  \ you need to initialize this yourself
: SEL_WORD  'sel_word @[EMAIL PROTECTED]
 EXECUTE ;

Of course, you may want to go beyond DEFER's functionality by defining
an array of xts that you can change as a group using CMOVEC. This is
good for changing many behaviors at once, such as when switching modes
in an application.

BTW, you should use CELLS instead of 2*

Brad