shithub: femtolisp

Info  •  Files  •  Log  •  Branches

read: nextchar: just call ios_getc

--- a/read.c

+++ b/read.c

@@ -172,13 +172,9 @@

 	ios_t *f = RS;

 	do{

-		if(f->bpos < f->size){

-			ch = f->buf[f->bpos++];

-		}else{

-			ch = ios_getc(f);

-			if(ch == IOS_EOF)

-				return 0;

-		}

+		ch = ios_getc(RS);

+		if(ch == IOS_EOF)

+			return 0;

 		c = (char)ch;

 		if(c == ';'){

 			// single-line comment