![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to int.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.121, 2005/09/12 08:50:19 | version 1.122, 2005/12/25 12:55:18 |
|---|---|
| Line 790 Defer .status | Line 790 Defer .status |
| \ 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 | endif |
| query interpret prompt | refill WHILE |
| AGAIN ; | interpret prompt |
| REPEAT | |
| bye ; | |
| ' (quit) IS 'quit | ' (quit) IS 'quit |