gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.18, 1999/05/18 15:13:49	version 1.19, 1999/05/20 20:34:57
Line 130 create nextname-buffer 32 chars allot	Line 130 create nextname-buffer 32 chars allot
\ the next name is given in the string	\ the next name is given in the string

: nextname ( c-addr u -- ) \ gforth	: nextname ( c-addr u -- ) \ gforth
	\g The next defined word will have the name @var{c-addr u}; the
	\g defining word will leave the input stream alone.
name-too-long?	name-too-long?
nextname-buffer c! ( c-addr )	nextname-buffer c! ( c-addr )
nextname-buffer count move	nextname-buffer count move
Line 140 create nextname-buffer 32 chars allot	Line 142 create nextname-buffer 32 chars allot
input-stream ;	input-stream ;

: noname ( -- ) \ gforth	: noname ( -- ) \ gforth
\ the next defined word remains anonymous. The xt of that word is given by lastxt	\g The next defined word will be anonymous. The defining word will
	\g leave the input stream alone. The xt of the defined word will
	\g be given by @code{lastxt}.
['] noname-header IS (header) ;	['] noname-header IS (header) ;

: lastxt ( -- xt ) \ gforth	: lastxt ( -- xt ) \ gforth