From 8c22057b2ece906d3877363573db39e65de1b1b6 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Fri, 4 Nov 1994 15:20:00 -0200 Subject: [PATCH] new global function 'setfallback' --- table.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/table.c b/table.c index 1f7dad0b..abd66aa3 100644 --- a/table.c +++ b/table.c @@ -3,7 +3,7 @@ ** Module to control static tables */ -char *rcs_table="$Id: table.c,v 2.9 1994/11/03 21:48:36 roberto Exp $"; +char *rcs_table="$Id: table.c,v 2.10 1994/11/03 22:33:40 roberto Exp roberto $"; #include #include @@ -53,20 +53,22 @@ static void lua_initsymbol (void) lua_error ("symbol table: not enough memory"); return; } - n = lua_findsymbol("type"); - s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_type; - n = lua_findsymbol("tonumber"); - s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_obj2number; n = lua_findsymbol("next"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_next; n = lua_findsymbol("nextvar"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_nextvar; + n = lua_findsymbol("type"); + s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_type; + n = lua_findsymbol("tonumber"); + s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_obj2number; n = lua_findsymbol("print"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_print; n = lua_findsymbol("dofile"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_internaldofile; n = lua_findsymbol("dostring"); s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = lua_internaldostring; + n = lua_findsymbol("setfallback"); + s_tag(n) = LUA_T_CFUNCTION; s_fvalue(n) = luaI_setfallback; }