gforth/kernel/int.fs - diff

Return to int.fs CVS log

Up to [gforth] / gforth / kernel

version 1.191, 2012/07/23 14:15:52	version 1.192, 2012/07/23 14:46:31
Line 882 has? os [IF]	Line 882 has? os [IF]
[ has? OS [IF] ] >stderr [ [THEN] ]	[ has? OS [IF] ] >stderr [ [THEN] ]
cr ." Can't print to stdout, leaving" cr	cr ." Can't print to stdout, leaving" cr
\ if stderr does not work either, already DoError causes a hang	\ if stderr does not work either, already DoError causes a hang
2 (bye)	-2 (bye)
endif [ [THEN] ]	endif [ [THEN] ]
refill WHILE	refill WHILE
interpret prompt	interpret prompt
Line 1072 Defer mark-end	Line 1072 Defer mark-end
\G C calling us	\G C calling us
catch dup IF DoError cr THEN (bye) ;	catch dup IF DoError cr THEN (bye) ;

	: do-find ( addr u -- )
	find-name dup IF name>int THEN (bye) ;

\ \ Cold Boot 13feb93py	\ \ Cold Boot 13feb93py

: gforth ( -- )	: gforth ( -- )