| : |
: |
| 2 cells + ; |
2 cells + ; |
| |
|
| \+standardthreading |
\ threading stuff is currently only interesting if we have a compiler |
| |
\fhas? standardthreading has? compiler and [IF] |
| |
|
| >code-address xt -- c_addr gforth to_code_address |
>code-address xt -- c_addr gforth to_code_address |
| ""@i{c-addr} is the code address of the word @i{xt}."" |
""@i{c-addr} is the code address of the word @i{xt}."" |
| : |
: |
| 1 ; |
1 ; |
| |
|
| \+ |
\f[THEN] |
| |
|
| key-file wfileid -- n gforth paren_key_file |
key-file wfileid -- n gforth paren_key_file |
| #ifdef HAS_FILE |
#ifdef HAS_FILE |