gforth/see.fs - diff

Return to see.fs CVS log

Up to [gforth] / gforth

version 1.58, 2006/12/30 20:06:26	version 1.60, 2007/02/18 18:30:51
Line 1	Line 1
\ SEE.FS highend SEE for ANSforth 16may93jaw	\ SEE.FS highend SEE for ANSforth 16may93jaw

\ Copyright (C) 1995,2000,2003,2004 Free Software Foundation, Inc.	\ Copyright (C) 1995,2000,2003,2004,2006 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 120 VARIABLE Colors Colors on	Line 120 VARIABLE Colors Colors on
else	else
base @ >r try	base @ >r try
8 base ! 0 <<# # # # '\ hold #> ctype #>> 0	8 base ! 0 <<# # # # '\ hold #> ctype #>> 0
recover	restore
	r@ base !
endtry	endtry
r> base ! throw	rdrop throw
endif	endif
endif	endif
1 /string	1 /string