gforth/look.fs - diff

Return to look.fs CVS log

Up to [gforth] / gforth

version 1.25, 2003/01/20 17:07:37	version 1.27, 2003/03/22 10:04:07
Line 1	Line 1
\ LOOK.FS xt -> lfa 22may93jaw	\ LOOK.FS xt -> lfa 22may93jaw

\ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2000,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 113 has? rom	Line 113 has? rom
: threaded>name ( ca -- nt\|0 )	: threaded>name ( ca -- nt\|0 )
threaded>xt prim>name ;	threaded>xt prim>name ;

: >head ( cfa -- nt\|0 ) \ gforth to-head	: >name ( xt -- nt\|0 ) \ gforth to-name
\G tries to find the name token nt of the word represented by cfa;	\G tries to find the name token @var{nt} of the word represented
\G returns 0 if it fails. This word is not absolutely reliable,	\G by @var{xt}; returns 0 if it fails. This word is not
\G it may give false positives and produce wrong nts.	\G absolutely reliable, it may give false positives and produce
	\G wrong nts.
look and ;	look and ;

' >head ALIAS >name \ gforth to-name	' >name ALIAS >head \ gforth to-head
\G old name of @code{>head}	\G another name of @code{>name}