Return to prim CVS log | Up to [gforth] / gforth |
version 1.262, 2011/12/02 22:06:13 | version 1.263, 2011/12/19 19:43:29 |
---|---|
Line 1103 lshift ( u1 n -- u2 ) core l_shift | Line 1103 lshift ( u1 n -- u2 ) core l_shift |
: | : |
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...) |