aboutsummaryrefslogtreecommitdiff
path: root/lbaselib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lbaselib.c')
-rw-r--r--lbaselib.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/lbaselib.c b/lbaselib.c
index e47f9e5c..3a2aea18 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lbaselib.c,v 1.16 2000/10/31 13:10:24 roberto Exp roberto $ 2** $Id: lbaselib.c,v 1.17 2000/11/06 13:45:18 roberto Exp roberto $
3** Basic library 3** Basic library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -38,7 +38,7 @@ static int luaB__ERRORMESSAGE (lua_State *L) {
38 lua_getglobal(L, LUA_ALERT); 38 lua_getglobal(L, LUA_ALERT);
39 if (lua_isfunction(L, -1)) { /* avoid error loop if _ALERT is not defined */ 39 if (lua_isfunction(L, -1)) { /* avoid error loop if _ALERT is not defined */
40 lua_Debug ar; 40 lua_Debug ar;
41 lua_pushstring(L, "error: "); 41 lua_pushliteral(L, "error: ");
42 lua_pushvalue(L, 1); 42 lua_pushvalue(L, 1);
43 if (lua_getstack(L, 1, &ar)) { 43 if (lua_getstack(L, 1, &ar)) {
44 lua_getinfo(L, "Sl", &ar); 44 lua_getinfo(L, "Sl", &ar);
@@ -49,7 +49,7 @@ static int luaB__ERRORMESSAGE (lua_State *L) {
49 lua_concat(L, 2); 49 lua_concat(L, 2);
50 } 50 }
51 } 51 }
52 lua_pushstring(L, "\n"); 52 lua_pushliteral(L, "\n");
53 lua_concat(L, 3); 53 lua_concat(L, 3);
54 lua_rawcall(L, 1, 0); 54 lua_rawcall(L, 1, 0);
55 } 55 }
@@ -327,7 +327,7 @@ static int luaB_tostring (lua_State *L) {
327 sprintf(buff, "userdata(%d): %p", lua_tag(L, 1), lua_touserdata(L, 1)); 327 sprintf(buff, "userdata(%d): %p", lua_tag(L, 1), lua_touserdata(L, 1));
328 break; 328 break;
329 case LUA_TNIL: 329 case LUA_TNIL:
330 lua_pushstring(L, "nil"); 330 lua_pushliteral(L, "nil");
331 return 1; 331 return 1;
332 default: 332 default:
333 luaL_argerror(L, 1, "value expected"); 333 luaL_argerror(L, 1, "value expected");
@@ -397,7 +397,7 @@ static int luaB_tinsert (lua_State *L) {
397 pos = n+1; 397 pos = n+1;
398 else 398 else
399 pos = luaL_check_int(L, 2); /* 2nd argument is the position */ 399 pos = luaL_check_int(L, 2); /* 2nd argument is the position */
400 lua_pushstring(L, "n"); 400 lua_pushliteral(L, "n");
401 lua_pushnumber(L, n+1); 401 lua_pushnumber(L, n+1);
402 lua_rawset(L, 1); /* t.n = n+1 */ 402 lua_rawset(L, 1); /* t.n = n+1 */
403 for (; n>=pos; n--) { 403 for (; n>=pos; n--) {
@@ -421,7 +421,7 @@ static int luaB_tremove (lua_State *L) {
421 lua_rawgeti(L, 1, pos+1); 421 lua_rawgeti(L, 1, pos+1);
422 lua_rawseti(L, 1, pos); /* a[pos] = a[pos+1] */ 422 lua_rawseti(L, 1, pos); /* a[pos] = a[pos+1] */
423 } 423 }
424 lua_pushstring(L, "n"); 424 lua_pushliteral(L, "n");
425 lua_pushnumber(L, n-1); 425 lua_pushnumber(L, n-1);
426 lua_rawset(L, 1); /* t.n = n-1 */ 426 lua_rawset(L, 1); /* t.n = n-1 */
427 lua_pushnil(L); 427 lua_pushnil(L);
@@ -644,7 +644,7 @@ static const struct luaL_reg base_funcs[] = {
644 644
645LUALIB_API void lua_baselibopen (lua_State *L) { 645LUALIB_API void lua_baselibopen (lua_State *L) {
646 luaL_openl(L, base_funcs); 646 luaL_openl(L, base_funcs);
647 lua_pushstring(L, LUA_VERSION); 647 lua_pushliteral(L, LUA_VERSION);
648 lua_setglobal(L, "_VERSION"); 648 lua_setglobal(L, "_VERSION");
649 deprecated_funcs(L); 649 deprecated_funcs(L);
650} 650}