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 |