![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to args.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to args.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.10, 2000/10/29 20:27:03 | version 1.11, 2002/01/05 20:16:18 |
|---|---|
| Line 74 Variable argc ( -- addr ) \ gforth | Line 74 Variable argc ( -- addr ) \ gforth |
| false to script? | false to script? |
| ; | ; |
| : os-boot ( path n **argv argc -- ) | |
| stdout TO outfile-id | |
| stdin TO infile-id | |
| argc ! argv ! pathstring 2! ; | |
| ' (process-args) IS process-args | ' (process-args) IS process-args |