| [ has? backtrace [IF] ] |
[ has? backtrace [IF] ] |
| rp@ backtrace-rp0 ! |
rp@ backtrace-rp0 ! |
| [ [THEN] ] |
[ [THEN] ] |
| handler off |
|
| [ has? file [IF] ] |
[ has? file [IF] ] |
| pathstring 2@ fpath only-path |
pathstring 2@ fpath only-path |
| init-included-files |
init-included-files |
| [ has? floating [IF] ] |
[ has? floating [IF] ] |
| fp@ fp0 ! |
fp@ fp0 ! |
| [ [THEN] ] |
[ [THEN] ] |
| |
handler off |
| ['] cold catch DoError cr |
['] cold catch DoError cr |
| [ has? os [IF] ] |
[ has? os [IF] ] |
| 1 (bye) \ !! determin exit code from throw code? |
1 (bye) \ !! determin exit code from throw code? |