| \ ( n -- ) include exceptions.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 Free Software Foundation, Inc. |
\ Copyright (C) 2000,2001,2003,2004 Free Software Foundation, Inc. |
| |
|
| \ This file is part of Gforth. |
\ This file is part of Gforth. |
| |
|
| \ 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 @ |
| |
[defined] next-arg 0= [if] |
| |
\ for compatibility with old versions |
| |
swap cell+ swap 1- |
| |
[endif] |
| |
boot |
| |
|
