version 1.7, 2003/08/25 14:17:44
|
version 1.8, 2004/01/18 22:21:28
|
Line 1
|
Line 1
|
\ ( 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. |
|
|
Line 31 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@ rot argv @ over cells + argc @ rot - boot |
pathstring 2@ argv @ argc @ boot |