version 1.190, 2012/07/20 19:34:27
|
version 1.191, 2012/07/23 14:15:52
|
Line 1068 Defer mark-end
|
Line 1068 Defer mark-end
|
[ [ELSE] ] r> >tib ! |
[ [ELSE] ] r> >tib ! |
[ [THEN] ] ; |
[ [THEN] ] ; |
|
|
|
: do-execute ( xt -- ) \ Gforth |
|
\G C calling us |
|
catch dup IF DoError cr THEN (bye) ; |
|
|
\ \ Cold Boot 13feb93py |
\ \ Cold Boot 13feb93py |
|
|
: gforth ( -- ) |
: gforth ( -- ) |
Line 1113 Defer 'cold ( -- ) \ gforth tick-cold
|
Line 1117 Defer 'cold ( -- ) \ gforth tick-cold
|
loadline off |
loadline off |
[ [THEN] ] |
[ [THEN] ] |
bootmessage |
bootmessage |
quit ; |
1 (bye) ; |
|
|
has? new-input 0= [IF] |
has? new-input 0= [IF] |
: clear-tibstack ( -- ) |
: clear-tibstack ( -- ) |
Line 1172 has? new-input 0= [IF]
|
Line 1176 has? new-input 0= [IF]
|
cold |
cold |
[ [THEN] ] |
[ [THEN] ] |
[ has? os [IF] ] |
[ has? os [IF] ] |
1 (bye) \ !! determin exit code from throw code? |
-1 (bye) \ !! determin exit code from throw code? |
[ [THEN] ] |
[ [THEN] ] |
; |
; |
|
|