Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.89, 2006/12/31 13:39:18 | version 1.90, 2007/03/12 20:11:55 |
---|---|
Line 303 has? peephole [IF] | Line 303 has? peephole [IF] |
\ \ ticks | \ \ ticks |
: name>comp ( nt -- w xt ) \ gforth | : name>comp ( nt -- w xt ) \ gforth name-to-comp |
\G @i{w xt} is the compilation token for the word @i{nt}. | \G @i{w xt} is the compilation token for the word @i{nt}. |
(name>comp) | (name>comp) |
1 = if | 1 = if |