Diff for /gforth/prim between versions 1.100 and 1.101

version 1.100, 2002/10/04 19:17:05 version 1.101, 2002/10/27 09:57:11
Line 1799  floor ( r1 -- r2 ) float Line 1799  floor ( r1 -- r2 ) float
 /* !! unclear wording */  /* !! unclear wording */
 r2 = floor(r1);  r2 = floor(r1);
   
 fround  ( r1 -- r2 )    float   f_round  (fround)        ( r1 -- r2 )    gforth  paren_f_round
 ""Round to the nearest integral value.""  ""Round to the nearest integral value.  Primitive variant (unused)""
   /* !! eliminate this as primitive? */
 /* !! unclear wording */  /* !! unclear wording */
 #ifdef HAVE_RINT  #ifdef HAVE_RINT
 r2 = rint(r1);  r2 = rint(r1);

Removed from v.1.100  
changed lines
  Added in v.1.101


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