diff options
-rw-r--r-- | lbuiltin.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbuiltin.c,v 1.35 1998/11/13 16:39:18 roberto Exp roberto $ | 2 | ** $Id: lbuiltin.c,v 1.36 1998/12/03 15:45:15 roberto Exp roberto $ |
3 | ** Built-in functions | 3 | ** Built-in functions |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -234,10 +234,11 @@ static void luaI_print (void) { | |||
234 | luaD_calln(1, 1); | 234 | luaD_calln(1, 1); |
235 | if (ttype(L->stack.top-1) != LUA_T_STRING) | 235 | if (ttype(L->stack.top-1) != LUA_T_STRING) |
236 | lua_error("`tostring' must return a string to `print'"); | 236 | lua_error("`tostring' must return a string to `print'"); |
237 | printf("%.200s\t", svalue(L->stack.top-1)); | 237 | if (i>2) fputs("\t", stdout); |
238 | fputs(svalue(L->stack.top-1), stdout); | ||
238 | L->stack.top--; | 239 | L->stack.top--; |
239 | } | 240 | } |
240 | printf("\n"); | 241 | fputs("\n", stdout); |
241 | } | 242 | } |
242 | 243 | ||
243 | 244 | ||