種明かし

id:yshl:20071130:1196417927 の種明かしです。
Gforth ではドットがついた数は倍精度整数なんです。浮動小数点ではなく整数。普通の整数が 32 bit だったら 64 bit の整数です。そのため、0.1 は倍精度整数の 01 つまり 1 になります。
倍精度整数がスタック上でどう表現されるかというと、32 bit 整数が 2 個置かれます。下 32 bit がスタックの奥に、上 32 bit が手前になります。倍精度整数の 1 の場合、1 と 0 がスタックに順に積まれます。
なので、スタックのトップに 1 を足して、= で比較すると true と判断されることになります。
ちなみに pForth ではこの通りにはなりませんでした。