Return to kernel.fs CVS log | Up to [gforth] / gforth |
version 1.22, 1997/03/27 13:31:02 | 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 |