| Re: Database of LIT to single xt? |
|
 |
|
 |
|
 |
|
 |
Group: comp.lang.forth · Group Profile
Author: George HubertGeorge Hubert Date: Aug 5, 2008 01:56
On Aug 4, 4:10Â pm, jacko gmail.com> wrote:
> hi
>
> : 0 DUP DUP XOR ;
> : -1 0 NOT ;
>
> any more? just as a code compaction exercise.
The easiest way (as done in Fig Forth and other older Forths) is;
0 CONSTANT 0
1 CONSTANT 1
2 CONSTANT 2
why reinvent the wheel?
George Hubert
|