![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to kernel.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |