[BACK]Return to basics.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/basics.fs between versions 1.45 and 1.46

version 1.45, 2004/12/31 13:24:03 version 1.46, 2005/01/25 22:16:30
Line 284  is throw Line 284  is throw
 : "lit ( -- addr )  : "lit ( -- addr )
   r> r> dup count + aligned >r swap >r ;    r> r> dup count + aligned >r swap >r ;
   
 \ */MOD */                                              17may93jaw  
   
 \ !! I think */mod should have the same rounding behaviour as / - anton  
 : */mod ( n1 n2 n3 -- n4 n5 ) \ core    star-slash-mod  
     \G n1*n2=n3*n5+n4, with the intermediate result (n1*n2) being double.  
     >r m* r> sm/rem ;  
   
 : */ ( n1 n2 n3 -- n4 ) \ core  star-slash  
     \G n4=(n1*n2)/n3, with the intermediate result being double.  
     */mod nip ;  
   
 \ HEX DECIMAL                                           2may93jaw  \ HEX DECIMAL                                           2may93jaw
   
 : decimal ( -- ) \ core  : decimal ( -- ) \ core
Removed from v.1.45  
changed lines
  Added in v.1.46

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>