[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.152 and 1.153

version 1.152, Sun Feb 12 23:45:53 2006 UTC version 1.153, Sat Feb 18 13:12:52 2006 UTC
Line 2821 
Line 2821 
 \ Variable tudp 0 tudp !  \ Variable tudp 0 tudp !
   
 : u,  ( n -- udp )  : u,  ( n -- udp )
   current-region >r user-region activate .regions    current-region >r user-region activate
   X here swap X , tup@ - .regions    X here swap X , tup@ -
   r> activate ;    r> activate ;
   
 : au, ( n -- udp )  : au, ( n -- udp )

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help