Return to look.fs CVS log | Up to [gforth] / gforth |
version 1.29, 2007/12/31 19:02:24 | version 1.31, 2011/12/31 15:29:25 |
---|---|
Line 1 | Line 1 |
\ LOOK.FS xt -> lfa 22may93jaw | \ LOOK.FS xt -> lfa 22may93jaw |
\ Copyright (C) 1995,1996,1997,2000,2003,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,2000,2003,2007,2011 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
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] | |