1 files changed, 10 insertions, 11 deletions

diff --git a/lauxlib.c b/lauxlib.c
index ca2dd749..d6957564 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lauxlib.c,v 1.284 2015/11/19 19:16:22 roberto Exp roberto $
+** $Id: lauxlib.c,v 1.285 2015/12/14 11:59:27 roberto Exp roberto $
 ** Auxiliary functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -17,7 +17,8 @@
 #include <string.h>
 
 
-/* This file uses only the official API of Lua.
+/*
+** This file uses only the official API of Lua.
 ** Any function declared here could be written as an application function.
 */
 
@@ -217,7 +218,8 @@ LUALIB_API void luaL_where (lua_State *L, int level) {
 
 /*
 ** Again, the use of 'lua_pushvfstring' ensures this function does
-** not need reserved stack space when called.
+** not need reserved stack space when called. (At worst, it generates
+** an error with "stack overflow" instead of the given message.)
 */
 LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) {
   va_list argp;
@@ -358,17 +360,14 @@ LUALIB_API int luaL_checkoption (lua_State *L, int arg, const char *def,
 
 
 /*
-** Ensures the stack has at least 'space' extra slots, raising
-** an error if it cannot fulfill the request. It adds some
-** extra space so that, next time it is called (this function
-** is typically called inside a loop), it has space to format
-** the error message. (In case of an error without this extra
-** space, Lua will generate the same 'stack overflow' error,
+** Ensures the stack has at least 'space' extra slots, raising an error
+** if it cannot fulfill the request. (The error handling needs a few
+** extra slots to format the error message. In case of an error without
+** this extra space, Lua will generate the same 'stack overflow' error,
 ** but without 'msg'.)
 */
 LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg) {
-  const int extra = 5;  /* extra space to run error routines */
-  if (!lua_checkstack(L, space + extra)) {
+  if (!lua_checkstack(L, space)) {
     if (msg)
       luaL_error(L, "stack overflow (%s)", msg);
     else