diff options
Diffstat (limited to 'lstrlib.c')
-rw-r--r-- | lstrlib.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstrlib.c,v 1.102 2004/04/30 20:13:38 roberto Exp roberto $ | 2 | ** $Id: lstrlib.c,v 1.103 2004/06/08 14:31:15 roberto Exp roberto $ |
3 | ** Standard library for string operations and pattern-matching | 3 | ** Standard library for string operations and pattern-matching |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -133,7 +133,7 @@ static int str_char (lua_State *L) { | |||
133 | static int writer (lua_State *L, const void* b, size_t size, void* B) { | 133 | static int writer (lua_State *L, const void* b, size_t size, void* B) { |
134 | (void)L; | 134 | (void)L; |
135 | luaL_addlstring((luaL_Buffer*) B, (const char *)b, size); | 135 | luaL_addlstring((luaL_Buffer*) B, (const char *)b, size); |
136 | return 1; | 136 | return 0; |
137 | } | 137 | } |
138 | 138 | ||
139 | 139 | ||
@@ -142,7 +142,7 @@ static int str_dump (lua_State *L) { | |||
142 | luaL_checktype(L, 1, LUA_TFUNCTION); | 142 | luaL_checktype(L, 1, LUA_TFUNCTION); |
143 | lua_settop(L, 1); | 143 | lua_settop(L, 1); |
144 | luaL_buffinit(L,&b); | 144 | luaL_buffinit(L,&b); |
145 | if (!lua_dump(L, writer, &b)) | 145 | if (lua_dump(L, writer, &b) != 0) |
146 | luaL_error(L, "unable to dump given function"); | 146 | luaL_error(L, "unable to dump given function"); |
147 | luaL_pushresult(&b); | 147 | luaL_pushresult(&b); |
148 | return 1; | 148 | return 1; |