diff options
| -rw-r--r-- | lua.c | 5 |
1 files changed, 3 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lua.c,v 1.118 2003/03/11 12:24:34 roberto Exp roberto $ | 2 | ** $Id: lua.c,v 1.119 2003/03/17 13:01:48 roberto Exp roberto $ |
| 3 | ** Lua stand-alone interpreter | 3 | ** Lua stand-alone interpreter |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -285,7 +285,8 @@ static void manual_input (void) { | |||
| 285 | lua_getglobal(L, "print"); | 285 | lua_getglobal(L, "print"); |
| 286 | lua_insert(L, 1); | 286 | lua_insert(L, 1); |
| 287 | if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) | 287 | if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != 0) |
| 288 | l_message(progname, "error calling `print'"); | 288 | l_message(progname, lua_pushfstring(L, "error calling `print' (%s)", |
| 289 | lua_tostring(L, -1))); | ||
| 289 | } | 290 | } |
| 290 | } | 291 | } |
| 291 | lua_settop(L, 0); /* clear stack */ | 292 | lua_settop(L, 0); /* clear stack */ |
