[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.262 and 1.263

version 1.262, Fri Dec 2 22:06:13 2011 UTC version 1.263, Mon Dec 19 19:43:29 2011 UTC
Line 1103 
Line 1103 
 :  :
     0 ?DO 2* LOOP ;      0 ?DO 2* LOOP ;
   
   umax    ( u1 u2 -- u )  core
   if (u1<u2)
     u = u2;
   else
     u = u1;
   :
    2dup u< IF swap THEN drop ;
   
   umin    ( u1 u2 -- u )  core
   if (u1<u2)
     u = u1;
   else
     u = u2;
   :
    2dup u> IF swap THEN drop ;
   
 \g compare  \g compare
   
 \ comparisons(prefix, args, prefix, arg1, arg2, wordsets...)  \ comparisons(prefix, args, prefix, arg1, arg2, wordsets...)

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help