gforth/wordinfo.fs - diff

Return to wordinfo.fs CVS log

Up to [gforth] / gforth

version 1.13, 1996/08/26 10:07:22	version 1.14, 1997/07/06 14:29:34
Line 22	Line 22
\ If you want check values then exclude comments,	\ If you want check values then exclude comments,
\ but keep in mind that this can't be cross-compiled	\ but keep in mind that this can't be cross-compiled

INCLUDE look.fs	\ INCLUDE look.fs

\ Wordinfo is a tool that checks a nfa	\ Wordinfo is a tool that checks a nfa
\ and finds out what wordtype we have	\ and finds out what wordtype we have
Line 61 INCLUDE look.fs	Line 61 INCLUDE look.fs
\ the above words could be factored with create-does>, but this would	\ the above words could be factored with create-does>, but this would
\ probably make this file incompatible with cross.	\ probably make this file incompatible with cross.

	[IFDEF] forthstart
	: xtprim? ( xt -- flag )
	forthstart u< ;
	[ELSE]
	: xtprim? ( xt -- flag )
	dup >body swap >code-address = ;
	[THEN]
: prim? ( nfa -- flag )	: prim? ( nfa -- flag )
name>int	name>int xtprim? ;
forthstart u< ;

\ None nestable IDs:	\ None nestable IDs: