version 1.21, 1997/03/25 23:27:13
|
version 1.23, 1997/03/28 14:06:23
|
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] ] |
[ has-os [IF] ] |
|
outfile-id dup flush-file drop >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 1320 Defer 'cold ( -- ) \ gforth tick-cold
|
Line 1323 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] ] |