lua

commit 1f9f97e3cfcb80bdf06ec5fc051fa6ccf98db45b
parent 34aac33c15b8622004b34d08bec28cae2141675a
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 13 Jun 2005 18:19:52 -0300

'math.mod' -> 'math.fmod'

Diffstat:
M
lmathlib.c
 | 
10
+++++++---

1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lmathlib.c b/lmathlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lmathlib.c,v 1.62 2005/01/07 20:00:33 roberto Exp roberto $
+** $Id: lmathlib.c,v 1.63 2005/03/04 18:57:03 roberto Exp roberto $
 ** Standard mathematical library
 ** See Copyright Notice in lua.h
 */
@@ -88,7 +88,7 @@ static int math_floor (lua_State *L) {
   return 1;
 }
 
-static int math_mod (lua_State *L) {
+static int math_fmod (lua_State *L) {
   lua_pushnumber(L, fmod(luaL_checknumber(L, 1), luaL_checknumber(L, 2)));
   return 1;
 }
@@ -226,7 +226,7 @@ static const luaL_reg mathlib[] = {
   {"atan2", math_atan2},
   {"ceil",  math_ceil},
   {"floor", math_floor},
-  {"mod",   math_mod},
+  {"fmod",   math_fmod},
   {"modf",   math_modf},
   {"frexp", math_frexp},
   {"ldexp", math_ldexp},
@@ -254,6 +254,10 @@ LUALIB_API int luaopen_math (lua_State *L) {
   lua_setfield(L, -2, "pi");
   lua_pushnumber(L, HUGE_VAL);
   lua_setfield(L, -2, "huge");
+#if defined(LUA_COMPAT_MOD)
+  lua_getfield(L, -1, "fmod");
+  lua_setfield(L, -2, "mod");
+#endif
   return 1;
 }