gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

version 1.28, 2007/12/31 18:40:24	version 1.30, 2011/10/07 21:46:57
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 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]