andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: read_string: Prepare for M2-Planet. 

* src/string.c (read_string): Prepare for M2-Planet.
This commit is contained in:
Jan Nieuwenhuizen 2019-10-24 21:44:40 +02:00
parent 058dfc74ea
commit ca5140c714
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/string.c
View File

@ -169,8 +169,9 @@ SCM
read_string (SCM port) /*:((arity . n)) */ read_string (SCM port) /*:((arity . n)) */
{ {
int fd = __stdin; int fd = __stdin;
if (TYPE (port) == TPAIR && TYPE (car (port)) == TNUMBER) if (TYPE (port) == TPAIR)
__stdin = VALUE (CAR (port)); if (TYPE (car (port)) == TNUMBER)
__stdin = VALUE (CAR (port));
int c = readchar (); int c = readchar ();
size_t i = 0; size_t i = 0;
while (c != -1) while (c != -1)