Diff for /gforth/kernel/xchars.fs between versions 1.6 and 1.7

version 1.6, 2007/05/05 17:26:03 version 1.7, 2007/07/14 19:57:16
Line 35  DEFER XC@ ( xc-addr -- xc ) Line 35  DEFER XC@ ( xc-addr -- xc )
 DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded  DEFER XC!+? ( xc xc-addr1 u1 -- xc-addr2 u2 f ) \ f if operation succeeded
 DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )  DEFER XC@+ ( xc-addr1 -- xc-addr2 xc )
 DEFER XC-SIZE ( xc -- u ) \ size in cs  DEFER XC-SIZE ( xc -- u ) \ size in cs
   DEFER X-SIZE ( xc-addr u1 -- u2 ) \ size in cs
 DEFER X-WIDTH ( addr u -- n ) \ size in fixed chars  DEFER X-WIDTH ( addr u -- n ) \ size in fixed chars
 DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc  DEFER -TRAILING-GARBAGE ( addr u1 -- addr u2 ) \ remove trailing incomplete xc
   
Line 84  DEFER -TRAILING-GARBAGE ( addr u1 -- add Line 85  DEFER -TRAILING-GARBAGE ( addr u1 -- add
     ['] c!+? is xc!+?      ['] c!+? is xc!+?
     ['] count is xc@+      ['] count is xc@+
     ['] c-size is xc-size      ['] c-size is xc-size
       ['] c-size is x-size
     ['] nip IS x-width      ['] nip IS x-width
     ['] noop is -trailing-garbage      ['] noop is -trailing-garbage
 ;  ;

Removed from v.1.6  
changed lines
  Added in v.1.7


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