Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.29, 2007/12/31 19:02:24 | version 1.30, 2011/10/07 21:46:57 |
---|---|
Line 121 has? rom | Line 121 has? rom |
' >name ALIAS >head \ gforth to-head | ' >name ALIAS >head \ gforth to-head |
\G another name of @code{>name} | \G another name of @code{>name} |
\ print recognizer stack | |
[IFDEF] forth-recognizer | |
: .recs ( -- ) | |
forth-recognizer get-recognizers 0 ?DO | |
>name .name | |
LOOP ; | |
[THEN] | |