diff options
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.136 2003/10/23 18:06:22 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.137 2003/11/05 11:59:14 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 | */ |
@@ -484,14 +484,14 @@ static void pushcomposename (lua_State *L) { | |||
484 | const char *wild; | 484 | const char *wild; |
485 | int n = 1; | 485 | int n = 1; |
486 | while ((wild = strchr(path, LUA_PATH_MARK)) != NULL) { | 486 | while ((wild = strchr(path, LUA_PATH_MARK)) != NULL) { |
487 | /* is there stack space for prefix, name, and eventual last sufix? */ | 487 | /* is there stack space for prefix, name, and eventual last suffix? */ |
488 | luaL_checkstack(L, 3, "too many marks in a path component"); | 488 | luaL_checkstack(L, 3, "too many marks in a path component"); |
489 | lua_pushlstring(L, path, wild - path); /* push prefix */ | 489 | lua_pushlstring(L, path, wild - path); /* push prefix */ |
490 | lua_pushvalue(L, 1); /* push package name (in place of MARK) */ | 490 | lua_pushvalue(L, 1); /* push package name (in place of MARK) */ |
491 | path = wild + 1; /* continue after MARK */ | 491 | path = wild + 1; /* continue after MARK */ |
492 | n += 2; | 492 | n += 2; |
493 | } | 493 | } |
494 | lua_pushstring(L, path); /* push last sufix (`n' already includes this) */ | 494 | lua_pushstring(L, path); /* push last suffix (`n' already includes this) */ |
495 | lua_concat(L, n); | 495 | lua_concat(L, n); |
496 | } | 496 | } |
497 | 497 | ||