Fix #46: Incorrect results of math.floor and math.ceil

rvirding · Jul 30, 2014 · 46e9269 · 46e9269
1 parent 9d1004b
commit 46e9269
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/luerl_lib_math.erl b/src/luerl_lib_math.erl
@@ -92,6 +92,7 @@ atan2(As, St) ->
 
 ceil(As, St) ->
     case luerl_lib:tonumbers(As) of
+	[N|_] when round(N) == N -> {[N],St};
 	[N|_] -> {[float(round(N + 0.5))],St};
 	_ -> badarg_error(ceil, As, St)
     end.
@@ -122,6 +123,7 @@ exp(As, St) ->
 
 floor(As, St) ->
     case luerl_lib:tonumbers(As) of
+	[N|_] when round(N) == N -> {[N],St};
 	[N|_] -> {[float(round(N - 0.5))],St};
 	_ -> badarg_error(floor, As, St)
     end.