math.log now accepts an optional base

1 files changed, 5 insertions, 2 deletions

diff --git a/lmathlib.c b/lmathlib.c
index 9be0f160..23b245e6 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lmathlib.c,v 1.66 2005/08/15 14:12:32 roberto Exp roberto $
+** $Id: lmathlib.c,v 1.67 2005/08/26 17:36:32 roberto Exp roberto $
 ** Standard mathematical library
 ** See Copyright Notice in lua.h
 */
@@ -112,7 +112,10 @@ static int math_pow (lua_State *L) {
 }
 
 static int math_log (lua_State *L) {
-  lua_pushnumber(L, log(luaL_checknumber(L, 1)));
+  lua_Number res = log(luaL_checknumber(L, 1));
+  if (!lua_isnoneornil(L, 2))
+    res /= log(luaL_checknumber(L, 2));
+  lua_pushnumber(L, res);
   return 1;
 }