| version 1.35, Thu Dec 30 21:46:14 2010 UTC | version 1.36, Fri Dec 31 14:37:13 2010 UTC | ||
|---|---|---|---|
|
|
||
| Variable ofile | Variable ofile | ||
| Variable tfile | Variable tfile | ||
| : make-path ( addr -- ) >r r@ off s" " r> $! ; | |||
| : os-cold ( -- ) | : os-cold ( -- ) | ||
| fpath make-path | fpath $init | ||
| ofile make-path | ofile $init | ||
| tfile make-path | tfile $init | ||
| pathstring 2@ fpath only-path | pathstring 2@ fpath only-path | ||
| init-included-files ; | init-included-files ; | ||
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |