gforth/kernel/comp.fs - diff

Return to comp.fs CVS log

Up to [gforth] / gforth / kernel

version 1.30, 2001/01/28 16:54:55	version 1.31, 2001/01/28 17:39:33
Line 140 create nextname-buffer 32 chars allot	Line 140 create nextname-buffer 32 chars allot
: 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 The next defined word will have the name @var{c-addr u}; the
\g defining word will leave the input stream alone.	\g defining word will leave the input stream alone.
dup 31 u> -&19 and throw \ !! make buffer variable-sized	dup &31 u> -&19 and throw \ !! make buffer variable-sized
name-too-long?	name-too-long?
nextname-buffer c! ( c-addr )	nextname-buffer c! ( c-addr )
nextname-buffer count move	nextname-buffer count move