Diff for /gforth/kernel/xchars.fs between versions 1.10 and 1.11

version 1.10, 2007/10/17 15:50:01 version 1.11, 2007/10/17 16:05:22
Line 83  Defer -trailing-garbage ( xc-addr u1 -- Line 83  Defer -trailing-garbage ( xc-addr u1 --
     over >r +x/string      over >r +x/string
     r> xc@ ;      r> xc@ ;
   
 Create xholdbuf 8 allot  
 : xhold ( xc -- )  : xhold ( xc -- )
     \G Put xc into the pictured numeric output      \G Put xc into the pictured numeric output
     xholdbuf 8 xc!+? 2drop      dup xc-size negate chars holdptr +!
     BEGIN  1- dup  xholdbuf u>=  WHILE  dup c@ hold  REPEAT  drop ;      holdptr @ dup holdbuf u< -&17 and throw
       8 xc!+? 2drop drop ;
   
 \ fixed-size versions of these words  \ fixed-size versions of these words
   

Removed from v.1.10  
changed lines
  Added in v.1.11


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>