version 1.163, 2006/12/31 13:39:13
|
version 1.164, 2007/02/18 18:30:51
|
Line 140 $12340000 immarg !
|
Line 140 $12340000 immarg !
|
|
|
: ?print-error { f addr u -- } |
: ?print-error { f addr u -- } |
f ?not? if |
f ?not? if |
outfile-id >r try |
stderr >outfile |
stderr to outfile-id |
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr |
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr |
print-error-line |
print-error-line |
outfile< |
0 |
|
recover endtry |
|
r> to outfile-id throw |
|
1 (bye) \ abort |
1 (bye) \ abort |
endif ; |
endif ; |
|
|