From 55a70c9719cce1b5b9ba78919a0ab54c8442af73 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 29 Jan 1996 14:40:09 -0200
Subject: "read('s')" was "eating" delimiter.

---
 iolib.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/iolib.c b/iolib.c
index 85fe1f1e..51ad432a 100644
--- a/iolib.c
+++ b/iolib.c
@@ -3,7 +3,7 @@
 ** Input/output library to LUA
 */
 
-char *rcs_iolib="$Id: iolib.c,v 1.31 1996/01/22 17:38:57 roberto Exp roberto $";
+char *rcs_iolib="$Id: iolib.c,v 1.31 1996/01/22 17:46:55 roberto Exp roberto $";
 
 #include <stdio.h>
 #include <ctype.h>
@@ -200,12 +200,12 @@ static int read_until_char (int del)
   return c;
 }
 
-static int read_until_blank (void)
+static void read_until_blank (void)
 {
   int c;
   while((c = fgetc(in)) != EOF && !isspace(c))
     luaI_addchar(c);
-  return c;
+  if (c != EOF) ungetc(c,in);
 }
 
 static void read_m (int m)
-- 
cgit v1.2.3-55-g6feb