function luaK.numadd(P,t,s)return t+s end function luaK.numsub(P,t,s)return t-s end function luaK.nummul(P,t,s)return t*s end function luaK.numdiv(P,t,s)return t/s end function luaK.nummod(P,t,s)return t%s end function luaK.numpow(P,t,s)return t^s end function luaK.numunm(s,t)return-t end function luaK.numisnan(s,t)return not t==t end
------------------------------------------------------------------------
-- The luai_num* macros define the primitive operations over numbers.
-- * this is not the entire set of primitive operations from luaconf.h
-- * used in luaK:constfolding()
------------------------------------------------------------------------
function luaK:numadd(a, b)
	return a + b
end
function luaK:numsub(a, b)
	return a - b
end
function luaK:nummul(a, b)
	return a * b
end
function luaK:numdiv(a, b)
	return a / b
end
function luaK:nummod(a, b)
	return a % b
end
-- ((a) - floor((a)/(b))*(b)) /* actual, for reference */
function luaK:numpow(a, b)
	return a ^ b
end
function luaK:numunm(a)
	return -a
end
function luaK:numisnan(a)
	return not a == a
end
-- a NaN cannot equal another NaN
