Return to xxxprim CVS log | Up to [gforth] / gforth |
version 1.2, 2003/09/29 20:51:16 | version 1.3, 2003/10/01 09:15:45 |
---|---|
Line 169 n = n1+n2; | Line 169 n = n1+n2; |
lit ( #w -- w ) gforth | lit ( #w -- w ) gforth |
: | : |
r> dup @ swap cell+ >r ; | r> dup @ swap cell+ >r ; |
over ( n1 n2 -- n1 n2 n1 ) |