![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to io.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to io.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.3, 1997/09/13 12:05:52 | version 1.4, 1998/05/02 21:29:07 |
|---|---|
| Line 32 has? os [IF] | Line 32 has? os [IF] |
| ; | ; |
| [THEN] | [THEN] |
| [IFUNDEF] (type) | |
| : (type) BEGIN dup WHILE | |
| >r dup c@ (emit) 1+ r> 1- REPEAT 2drop ; | |
| [THEN] | |
| Defer type ( c-addr u -- ) \ core | Defer type ( c-addr u -- ) \ core |
| ' (type) IS Type | ' (type) IS Type |