aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1998-12-15 12:59:59 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1998-12-15 12:59:59 -0200
commit5d6de9075d27de4a891a3428b1394f1f721037d6 (patch)
tree24a5c363447df014796989840840f2f4c3ca80ef
parent21cff3015a325e2f965d762de5c733f0cf8525cd (diff)
downloadlua-5d6de9075d27de4a891a3428b1394f1f721037d6.tar.gz
lua-5d6de9075d27de4a891a3428b1394f1f721037d6.tar.bz2
lua-5d6de9075d27de4a891a3428b1394f1f721037d6.zip
"print" uses fputs instead of printf (easier to reimplement).
-rw-r--r--lbuiltin.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/lbuiltin.c b/lbuiltin.c
index 495f43d8..d09d4f72 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -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