diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-06-17 15:44:31 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-06-17 15:44:31 -0300 |
| commit | bfbf56f15a544633c841666e0e33bd66ef398312 (patch) | |
| tree | 702d39621392883f7948f31ca5e90d3734e627c7 | |
| parent | 732ef82c72993cad6b5701a50be1c0753e5cc973 (diff) | |
| download | lua-bfbf56f15a544633c841666e0e33bd66ef398312.tar.gz lua-bfbf56f15a544633c841666e0e33bd66ef398312.tar.bz2 lua-bfbf56f15a544633c841666e0e33bd66ef398312.zip | |
extra parameter for "call" is "pack" or "plain".
| -rw-r--r-- | inout.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -5,7 +5,7 @@ | |||
| 5 | ** Also provides some predefined lua functions. | 5 | ** Also provides some predefined lua functions. |
| 6 | */ | 6 | */ |
| 7 | 7 | ||
| 8 | char *rcs_inout="$Id: inout.c,v 2.60 1997/06/09 17:28:14 roberto Exp roberto $"; | 8 | char *rcs_inout="$Id: inout.c,v 2.61 1997/06/16 16:50:22 roberto Exp roberto $"; |
| 9 | 9 | ||
| 10 | #include <stdio.h> | 10 | #include <stdio.h> |
| 11 | #include <string.h> | 11 | #include <string.h> |
| @@ -251,7 +251,7 @@ static void luaI_call (void) | |||
| 251 | { | 251 | { |
| 252 | lua_Object f = lua_getparam(1); | 252 | lua_Object f = lua_getparam(1); |
| 253 | lua_Object arg = lua_getparam(2); | 253 | lua_Object arg = lua_getparam(2); |
| 254 | int withtable = (luaL_opt_string(3, NULL) != NULL); | 254 | int withtable = (strcmp(luaL_opt_string(3, "plain"), "pack") == 0); |
| 255 | int narg, i; | 255 | int narg, i; |
| 256 | luaL_arg_check(lua_isfunction(f), 1, "function expected"); | 256 | luaL_arg_check(lua_isfunction(f), 1, "function expected"); |
| 257 | luaL_arg_check(lua_istable(arg), 2, "table expected"); | 257 | luaL_arg_check(lua_istable(arg), 2, "table expected"); |