version 1.164, 2007/02/18 18:30:51
|
version 1.165, 2007/02/23 22:33:21
|
Line 138 $12340000 immarg !
|
Line 138 $12340000 immarg !
|
over - type cr |
over - type cr |
line-start @ rawinput @ over - typewhite ." ^" cr ; |
line-start @ rawinput @ over - typewhite ." ^" cr ; |
|
|
|
: print-error { addr u -- } |
|
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr |
|
print-error-line ; |
|
|
: ?print-error { f addr u -- } |
: ?print-error { f addr u -- } |
f ?not? if |
f ?not? if |
stderr >outfile |
addr u ['] print-error stderr outfile-execute |
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr |
|
print-error-line |
|
outfile< |
|
1 (bye) \ abort |
1 (bye) \ abort |
endif ; |
endif ; |
|
|