Diff for /gforth/cross.fs between versions 1.103 and 1.104

version 1.103, 2001/09/04 13:06:06 version 1.104, 2001/09/04 13:07:44
Line 2194  Cond: ALiteral ( n -- )   alit, ;Cond Line 2194  Cond: ALiteral ( n -- )   alit, ;Cond
 : Char ( "<char>" -- )  bl word char+ c@ ;  : Char ( "<char>" -- )  bl word char+ c@ ;
 Cond: [Char]   ( "<char>" -- )  Char  lit, ;Cond  Cond: [Char]   ( "<char>" -- )  Char  lit, ;Cond
   
 \ JAW Cond: chars ;Cond   tchar 1 = [IF]
   Cond: chars ;Cond 
   [THEN]
   
 \ some special literals                                 27jan97jaw  \ some special literals                                 27jan97jaw
   

Removed from v.1.103  
changed lines
  Added in v.1.104


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