![[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.26, 2006/12/31 13:39:19 | version 1.27, 2007/03/18 21:46:17 |
|---|---|
| Line 106 all-words | Line 106 all-words |
| \G Display one space. | \G Display one space. |
| bl emit ; | bl emit ; |
| has? ec [IF] | has? os 0= [IF] |
| : spaces ( n -- ) \ core | : spaces ( n -- ) \ core |
| \G If n > 0, display n spaces. | \G If n > 0, display n spaces. |
| 0 max 0 ?DO space LOOP ; | 0 max 0 ?DO space LOOP ; |