From 6b41e84da577b2d31cc659255b036bd0c2d6483f Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 21 Jun 2004 13:45:09 -0300
Subject: [PATCH] `assert' returns all its parameters (not only the first)

---
 lbaselib.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lbaselib.c b/lbaselib.c
index aea02d47..afe79eb4 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbaselib.c,v 1.146 2004/06/04 15:30:53 roberto Exp roberto $
+** $Id: lbaselib.c,v 1.147 2004/06/15 13:31:30 roberto Exp roberto $
 ** Basic library
 ** See Copyright Notice in lua.h
 */
@@ -319,8 +319,7 @@ static int luaB_assert (lua_State *L) {
   luaL_checkany(L, 1);
   if (!lua_toboolean(L, 1))
     return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!"));
-  lua_settop(L, 1);
-  return 1;
+  return lua_gettop(L);
 }