![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xchars.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to xchars.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.13, 2007/12/31 18:40:26 | version 1.14, 2008/12/06 16:28:13 |
|---|---|
| Line 88 Defer -trailing-garbage ( xc-addr u1 -- | Line 88 Defer -trailing-garbage ( xc-addr u1 -- |
| holdptr @ dup holdbuf u< -&17 and throw | holdptr @ dup holdbuf u< -&17 and throw |
| 8 xc!+? 2drop drop ; | 8 xc!+? 2drop drop ; |
| : xc, ( xchar -- ) here unused xc!+? 2drop dp ! ; | |
| \ fixed-size versions of these words | \ fixed-size versions of these words |
| : char- ( c-addr1 -- c-addr2 ) | : char- ( c-addr1 -- c-addr2 ) |