23 Aug
2007
23 Aug
'07
6:59 p.m.
As for seeing "here" from FCode:
defer my_here ' noop to my_here " here" $find if to my_here then
( you might need a "drop" after the "if"; I forgot whether $find returns just the XT or the "immediate" indicator, too...)
Then you can rock'n'roll with my_here to show you where you are...
: my-here " here" eval ;
Slower at run time (searching the dictionary every time), but this is debug code right :-)
Segher