![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to special.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to special.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.11, 1999/05/06 21:33:37 | version 1.12, 1999/05/17 15:07:05 |
|---|---|
| Line 20 | Line 20 |
| \ this file comes last, because these words override cross' words. | \ this file comes last, because these words override cross' words. |
| require ./vars.fs | |
| create s"-buffer /line chars allot | create s"-buffer /line chars allot |
| has? compiler 0= | has? compiler 0= |
| [IF] : s" [ELSE] :noname [THEN] | [IF] : s" [ELSE] :noname [THEN] |