| 2dup c! char+ swap move ; |
2dup c! char+ swap move ; |
| [THEN] |
[THEN] |
| |
|
| create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic |
\ create sourcepath 1024 chars , 0 , 1024 chars allot \ !! make this dynamic |
| sourcepath avalue fpath ( -- path-addr ) \ gforth |
0 avalue fpath ( -- path-addr ) \ gforth |
| |
|
| |
: os-cold ( -- ) |
| |
1024 chars dup 2 cells + allocate throw to fpath |
| |
0 swap fpath 2! |
| |
pathstring 2@ fpath only-path |
| |
init-included-files ; |
| |
|
| \ The path Gforth uses for @code{included} and friends. |
\ The path Gforth uses for @code{included} and friends. |
| |
|
| : also-path ( c-addr len path-addr -- ) \ gforth |
: also-path ( c-addr len path-addr -- ) \ gforth |
