Return to args.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.28, 2012/07/27 23:28:10 | version 1.29, 2012/08/09 23:58:53 |
---|---|
Line 117 Variable argc ( -- addr ) \ gforth | Line 117 Variable argc ( -- addr ) \ gforth |
: os-boot ( path n **argv argc -- ) | : os-boot ( path n **argv argc -- ) |
stdin TO infile-id | stdin TO infile-id |
stdout TO outfile-id | stdout TO outfile-id |
stderr TO errfile-id | stderr TO debug-fid |
argc ! argv ! pathstring 2! ; | argc ! argv ! pathstring 2! ; |
' (process-args) IS process-args | ' (process-args) IS process-args |