version 1.19, 1997/03/20 14:39:51
|
version 1.21, 1997/03/25 23:27:13
|
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 |
|
|