| \ 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 |
| 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 |
