function luaK.ttisnumber(G,X)if X then return type(X.value)=="\110\117\109\098\101\114"else return false end end function luaK.nvalue(G,X)return X.value end function luaK.setnilvalue(G,X)X.value=nil end function luaK.setsvalue(F,X,G)X.value=G end luaK.setnvalue=luaK.setsvalue luaK.sethvalue=luaK.setsvalue luaK.setbvalue=luaK.setsvalue
------------------------------------------------------------------------
-- emulation of TValue macros (these are from lobject.h)
-- * TValue is a table since lcode passes references around
-- * tt member field removed, using Lua's type() instead
-- * for setsvalue, sethvalue, parameter L (deleted here) in lobject.h
--   is used in an assert for testing, see checkliveness(g,obj)
------------------------------------------------------------------------
function luaK:ttisnumber(o)
	if o then
		return type(o.value) == "number"
	else
		return false
	end
end
function luaK:nvalue(o)
	return o.value
end
function luaK:setnilvalue(o)
	o.value = nil
end
function luaK:setsvalue(o, x)
	o.value = x
end
luaK.setnvalue = luaK.setsvalue
luaK.sethvalue = luaK.setsvalue
luaK.setbvalue = luaK.setsvalue
