Return to exboot.fs CVS log | Up to [gforth] / gforth |
version 1.8, 2004/01/18 22:21:28 | version 1.9, 2004/01/19 07:52:32 |
---|---|
Line 30 require except.fs | Line 30 require except.fs |
\ included-files 2@ image-included-files 2! | \ included-files 2@ image-included-files 2! |
\ now boot | \ now boot |
pathstring 2@ argv @ argc @ boot | |
pathstring 2@ argv @ argc @ | |
[defined] next-arg 0= [if] | |
\ for compatibility with old versions | |
swap cell+ swap 1- | |
[endif] | |
boot | |