[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

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

version 1.103, Tue Sep 4 13:06:06 2001 UTC version 1.104, Tue Sep 4 13:07:44 2001 UTC
Line 2194 
Line 2194 
 : 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
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.103  
changed lines
  Added in v.1.104
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help