gforth/prims2x.fs - diff

Return to prims2x.fs CVS log

Up to [gforth] / gforth

version 1.163, 2006/12/31 13:39:13	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
outfile-id >r try	addr u ['] print-error stderr outfile-execute
stderr to outfile-id
filename 2@ type ." :" line @ 0 .r ." : " addr u type cr
print-error-line
0
recover endtry
r> to outfile-id throw
1 (bye) \ abort	1 (bye) \ abort
endif ;	endif ;