nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small bug in fallback for power operator

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1995-01-04 16:49:54 -02:00
parent e4c69cf917
commit ad97e9ccbc
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mathlib.c
View File

@@ -3,7 +3,7 @@
** Mathematics library to LUA ** Mathematics library to LUA
*/ */
char *rcs_mathlib="$Id: mathlib.c,v 1.6 1994/11/18 19:46:21 roberto Stab roberto $"; char *rcs_mathlib="$Id: mathlib.c,v 1.7 1994/12/16 15:53:57 roberto Exp roberto $";
#include <stdio.h> /* NULL */ #include <stdio.h> /* NULL */
#include <math.h> #include <math.h>
@@ -169,10 +169,11 @@ static void math_pow (void)
lua_Object op = lua_getparam(3); lua_Object op = lua_getparam(3);
if (!lua_isnumber(o1) || !lua_isnumber(o2) || *(lua_getstring(op)) != 'p') if (!lua_isnumber(o1) || !lua_isnumber(o2) || *(lua_getstring(op)) != 'p')
{ {
lua_Object old = lua_getlocked(old_pow);
lua_pushobject(o1); lua_pushobject(o1);
lua_pushobject(o2); lua_pushobject(o2);
lua_pushobject(op); lua_pushobject(op);
if (lua_callfunction(lua_getlocked(old_pow)) != 0) if (lua_callfunction(old) != 0)
lua_error(NULL); lua_error(NULL);
} }
else else