Code: Select all
> (round 5 1)
10
> (round 0.5)
0
> (round 0.05 -1)
0.1
My version: newLISP v.10.5.4 64-bit on Linux IPv4/6 UTF-8 libffi.
Code: Select all
> (round 5 1)
10
> (round 0.5)
0
> (round 0.05 -1)
0.1
Code: Select all
sr@free:~/tmp/newlisp-10.5.4$ diff -u nl-math.c_orig nl-math.c
--- nl-math.c_orig 2013-10-01 17:52:03.000000000 +0200
+++ nl-math.c 2013-11-16 02:49:02.000000000 +0100
@@ -717,7 +717,7 @@
if(params != nilCell)
getInteger(params, (UINT*)&digits);
-if(digits > 0)
+if(digits >= 0)
{
precision = pow(10.0, (double)(digits > 20 ? 20 : digits));
fNum = precision * floor(fNum/precision + 0.5);
Code: Select all
(myarray 0 -1) → 4