| \ ( n -- ) include except.fs and restart Gforth, ignoring the |
\ include except.fs and restart Gforth. Gforth is restarted to create |
| \ first n arguments. Gforth is restarted to create an exception frame |
\ an exception frame for the exception handler. |
| \ for the exception handler. |
|
| |
|
| \ Copyright (C) 2000,2001,2003 Free Software Foundation, Inc. |
\ Copyright (C) 2000,2001,2003 Free Software Foundation, Inc. |
| |
|
| \ included-files 2@ image-included-files 2! |
\ included-files 2@ image-included-files 2! |
| |
|
| \ now boot |
\ now boot |
| pathstring 2@ rot argv @ over cells + argc @ rot - boot |
pathstring 2@ argv @ argc @ boot |