| : |
: |
| 2 cells + ; |
2 cells + ; |
| |
|
| |
\+standardthreading |
| |
|
| >code-address xt -- c_addr gforth to_code_address |
>code-address xt -- c_addr gforth to_code_address |
| ""@var{c-addr} is the code address of the word @var{xt}."" |
""@var{c-addr} is the code address of the word @var{xt}."" |
| /* !! This behaves installation-dependently for DOES-words */ |
/* !! This behaves installation-dependently for DOES-words */ |
| : |
: |
| 1 ; |
1 ; |
| |
|
| |
\+ |
| |
|
| key-file wfileid -- n gforth paren_key_file |
key-file wfileid -- n gforth paren_key_file |
| #ifdef HAS_FILE |
#ifdef HAS_FILE |
| fflush(stdout); |
fflush(stdout); |