![[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.163, 2008/07/15 15:23:42 | version 1.164, 2008/10/23 09:32:43 |
|---|---|
| Line 833 Defer 'quit | Line 833 Defer 'quit |
| has? os [IF] | has? os [IF] |
| Defer .status | Defer .status |
| [ELSE] | [ELSE] |
| : (bye) ( 0 -- ) \ back to DOS | [IFUNDEF] bye |
| drop 5 emit ; | : (bye) ( 0 -- ) \ back to DOS |
| drop 5 emit ; | |
| : bye ( -- ) 0 (bye) ; | |
| : bye ( -- ) 0 (bye) ; | |
| [THEN] | |
| [THEN] | [THEN] |
| : prompt state @ IF ." compiled" EXIT THEN ." ok" ; | : prompt state @ IF ." compiled" EXIT THEN ." ok" ; |