From 0f59e3d7a70ea8c15792450496974d95dbae8d5b Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 12 Sep 2000 10:47:39 -0300
Subject: [PATCH] details

---
 ldo.c     | 6 +++---
 lobject.c | 3 ++-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/ldo.c b/ldo.c
index 220be2f9..9d981468 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.94 2000/09/11 17:38:42 roberto Exp roberto $
+** $Id: ldo.c,v 1.95 2000/09/11 20:29:27 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -218,7 +218,7 @@ void luaD_breakrun (lua_State *L, int errcode) {
   else {
     if (errcode != LUA_ERRMEM)
       message(L, "unable to recover; exiting\n");
-    exit(1);
+    exit(EXIT_FAILURE);
   }
 }
 
@@ -271,7 +271,7 @@ static int protectedparser (lua_State *L, ZIO *z, int bin) {
   old_blocks = L->nblocks;
   chain_longjmp(L, &myErrorJmp);
   if (setjmp(myErrorJmp.b) == 0) {
-    Proto *tf = bin ? luaU_undump1(L, z) : luaY_parser(L, z);
+    Proto *tf = bin ? luaU_undump(L, z) : luaY_parser(L, z);
     luaV_Lclosure(L, tf, 0);
   }
   else {  /* an error occurred: correct error code */
diff --git a/lobject.c b/lobject.c
index c4f45d8b..c58d4bc2 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 1.46 2000/09/11 17:38:42 roberto Exp roberto $
+** $Id: lobject.c,v 1.47 2000/09/11 20:29:27 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -127,6 +127,7 @@ int luaO_str2d (const char *s, Number *result) {  /* LUA_NUMBER */
 }
 
 
+/* this function needs to handle only '%d' and '%.XXXs' formats */
 void luaO_verror (lua_State *L, const char *fmt, ...) {
   char buff[500];
   va_list argp;