easier to add new initialization functions

1 files changed, 11 insertions, 3 deletions

diff --git a/lua.c b/lua.c
index a7b80e5f..bf87237b 100644
--- a/lua.c
+++ b/lua.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lua.c,v 1.57 2001/01/22 18:01:38 roberto Exp roberto $
+** $Id: lua.c,v 1.58 2001/01/26 11:45:51 roberto Exp roberto $
 ** Lua stand-alone interpreter
 ** See Copyright Notice in lua.h
 */
@@ -30,8 +30,7 @@ static int isatty (int x) { return x==0; }  /* assume stdin is a tty */
 
 
 #ifndef LUA_USERINIT
-#define LUA_USERINIT(L) (lua_baselibopen(L), lua_iolibopen(L), \
-    lua_strlibopen(L), lua_mathlibopen(L), lua_dblibopen(L))
+#define LUA_USERINIT(L)         openstdlibs(L)
 #endif
 
 
@@ -310,6 +309,15 @@ static void register_getargs (char *argv[]) {
 }
 
 
+static void openstdlibs (lua_State *l) {
+  lua_baselibopen(l);
+  lua_iolibopen(l);
+  lua_strlibopen(l);
+  lua_mathlibopen(l);
+  lua_dblibopen(l);
+}
+
+
 int main (int argc, char *argv[]) {
   struct Options opt;
   int status;