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); |