| 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 ; |
| |
|
