version 1.54, 2000/08/17 12:46:58
|
version 1.55, 2000/08/18 08:56:33
|
Line 472 has? compiler 0= [IF] \ interpreter only
|
Line 472 has? compiler 0= [IF] \ interpreter only
|
|
|
Defer parser ( c-addr u -- ) |
Defer parser ( c-addr u -- ) |
Defer name ( -- c-addr count ) \ gforth |
Defer name ( -- c-addr count ) \ gforth |
\G get the next word from the input buffer |
\G Get the next word from the input buffer |
' (name) IS name |
' (name) IS name |
Defer compiler-notfound ( c-addr count -- ) |
Defer compiler-notfound ( c-addr count -- ) |
Defer interpreter-notfound ( c-addr count -- ) |
Defer interpreter-notfound ( c-addr count -- ) |