version 1.19, 1997/03/20 14:39:51
|
version 1.22, 1997/03/27 13:31:02
|
Line 1265 DEFER DOERROR
|
Line 1265 DEFER DOERROR
|
; |
; |
|
|
: (DoError) ( throw-code -- ) |
: (DoError) ( throw-code -- ) |
|
[ has-os [IF] ] outfile-id >r stderr to outfile-id [ [THEN] ] |
sourceline# IF |
sourceline# IF |
source >in @ sourceline# 0 0 .error-frame |
source >in @ sourceline# 0 0 .error-frame |
THEN |
THEN |
Line 1286 DEFER DOERROR
|
Line 1287 DEFER DOERROR
|
ELSE |
ELSE |
.error |
.error |
THEN |
THEN |
normal-dp dpp ! ; |
normal-dp dpp ! |
|
[ has-os [IF] ] r> to outfile-id [ [THEN] ] |
|
; |
|
|
' (DoError) IS DoError |
' (DoError) IS DoError |
|
|
Line 1317 Defer 'cold ( -- ) \ gforth tick-cold
|
Line 1320 Defer 'cold ( -- ) \ gforth tick-cold
|
[ [THEN] ] |
[ [THEN] ] |
'cold |
'cold |
[ has-files [IF] ] |
[ has-files [IF] ] |
argc @ 1 > |
['] process-args catch ?dup |
IF |
IF |
['] process-args catch ?dup |
dup >r DoError cr r> negate (bye) |
IF |
THEN |
dup >r DoError cr r> negate (bye) |
argc @ 1 > |
THEN |
IF \ there may be some unfinished line, so let's finish it |
cr |
cr |
THEN |
THEN |
[ [THEN] ] |
[ [THEN] ] |