[OpenBIOS] name of current word

[Stefan Reinauer]

On 3/31/10 10:42 AM, Mark Cave-Ayland wrote:
> Programmingkid wrote:
>
>> Is there a word that can tell me the name of the current word that is
>> executing?
>>
>> I want something like this:
>>
>> : myword
>> obtainWord
>> ;
>>
>> obtainWord would somehow return "myword". Any tips would be great.
>
> No, I don't think this is really possible because of the way in which
> Forth works (at least I ended up using a different solution for the
> debugger anyway).

Well, it is - to some extent:

: saymyname r@ begin cell - dup @ 1 <> while repeat cell - lfa2name type ;
: bar saymyname cr ;
bar

will say "bar"

But it only works reliably so far if it's very early in the word (before
any other cells that hold "1" which is the CFA for a colon definition.

Stefan