version 1.28, 2007/12/31 18:40: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 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] |
|
|