lua

commit be666a662b79e12c300dbf6d74d0a6626acac06f
parent 39cdbce23edfd443699e396900a70de3fcff46c7
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 25 Aug 2005 16:55:16 -0300

detail

Diffstat:
M
lua.c
 | 
5
++---
M
luaconf.h
 | 
4
++--

2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/lua.c b/lua.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lua.c,v 1.146 2005/06/28 13:01:50 roberto Exp roberto $
+** $Id: lua.c,v 1.147 2005/08/25 15:39:16 roberto Exp roberto $
 ** Lua stand-alone interpreter
 ** See Copyright Notice in lua.h
 */
@@ -137,8 +137,7 @@ static int dolibrary (lua_State *L, const char *name) {
 
 static const char *get_prompt (lua_State *L, int firstline) {
   const char *p;
-  lua_pushstring(L, firstline ? "_PROMPT" : "_PROMPT2");
-  lua_rawget(L, LUA_GLOBALSINDEX);
+  lua_getfield(L, LUA_GLOBALSINDEX, firstline ? "_PROMPT" : "_PROMPT2");
   p = lua_tostring(L, -1);
   if (p == NULL) p = (firstline ? LUA_PROMPT : LUA_PROMPT2);
   lua_pop(L, 1);  /* remove global */
diff --git a/luaconf.h b/luaconf.h
@@ -1,5 +1,5 @@
 /*
-** $Id: luaconf.h,v 1.60 2005/08/17 18:32:09 roberto Exp roberto $
+** $Id: luaconf.h,v 1.61 2005/08/22 19:58:29 roberto Exp roberto $
 ** Configuration file for Lua
 ** See Copyright Notice in lua.h
 */
@@ -631,7 +631,7 @@ union luai_Cast { double l_d; long l_l; };
 #else
 
 #define lua_popen(L,c,m)  \
-	((void)c, (void)m, luaL_error(L, LUA_QL("popen") "not supported"), NULL)
+  ((void)c, (void)m, luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0)
 #define lua_pclose(L,file)		((void)file, 0)
 
 #endif