diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-22 16:01:46 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-11-22 16:01:46 -0200 |
| commit | dbc5451bea323e8908fcedff2a89bcf73ed5cb57 (patch) | |
| tree | 05da7486e49d5f0e2670d275822629bdcd8aa09c /lbaselib.c | |
| parent | 2d2d45976ce41de04e9007c8a78a8ba244d1fdc5 (diff) | |
| download | lua-dbc5451bea323e8908fcedff2a89bcf73ed5cb57.tar.gz lua-dbc5451bea323e8908fcedff2a89bcf73ed5cb57.tar.bz2 lua-dbc5451bea323e8908fcedff2a89bcf73ed5cb57.zip | |
comments
Diffstat (limited to 'lbaselib.c')
| -rw-r--r-- | lbaselib.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lbaselib.c,v 1.107 2002/11/14 15:41:38 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.108 2002/11/18 11:20:01 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 | */ |
| @@ -78,7 +78,7 @@ static int luaB_error (lua_State *L) { | |||
| 78 | int level = luaL_optint(L, 2, 1); | 78 | int level = luaL_optint(L, 2, 1); |
| 79 | luaL_checkany(L, 1); | 79 | luaL_checkany(L, 1); |
| 80 | if (!lua_isstring(L, 1) || level == 0) | 80 | if (!lua_isstring(L, 1) || level == 0) |
| 81 | lua_pushvalue(L, 1); /* propagate error mesage without changes */ | 81 | lua_pushvalue(L, 1); /* propagate error message without changes */ |
| 82 | else { /* add extra information */ | 82 | else { /* add extra information */ |
| 83 | luaL_where(L, level); | 83 | luaL_where(L, level); |
| 84 | lua_pushvalue(L, 1); | 84 | lua_pushvalue(L, 1); |
| @@ -440,7 +440,7 @@ static const char *getpath (lua_State *L) { | |||
| 440 | 440 | ||
| 441 | static const char *pushnextpath (lua_State *L, const char *path) { | 441 | static const char *pushnextpath (lua_State *L, const char *path) { |
| 442 | const char *l; | 442 | const char *l; |
| 443 | if (*path == '\0') return NULL; /* no more pathes */ | 443 | if (*path == '\0') return NULL; /* no more paths */ |
| 444 | if (*path == LUA_PATH_SEP) path++; /* skip separator */ | 444 | if (*path == LUA_PATH_SEP) path++; /* skip separator */ |
| 445 | l = strchr(path, LUA_PATH_SEP); /* find next separator */ | 445 | l = strchr(path, LUA_PATH_SEP); /* find next separator */ |
| 446 | if (l == NULL) l = path+strlen(path); | 446 | if (l == NULL) l = path+strlen(path); |