Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.59, 2006/12/31 13:39:13 | version 1.60, 2007/02/18 18:30:51 |
---|---|
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 |