![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to look.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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] | |