artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: read_char: Prepare for M2-Planet.

Browse source 
* src/posix.c (read_char): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 21:26:24 +02:00
parent 9c099977a0
commit 2f0796cfb5
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

3
src/posix.c
View file

@ -116,7 +116,8 @@ SCM
read_char (SCM port) /*:((arity . n)) */ read_char (SCM port) /*:((arity . n)) */
{ {
int fd = __stdin; int fd = __stdin;
if (TYPE (port) == TPAIR && TYPE (car (port)) == TNUMBER) if (TYPE (port) == TPAIR)
if (TYPE (CAR (port)) == TNUMBER)
__stdin = VALUE (CAR (port)); __stdin = VALUE (CAR (port));
SCM c = make_char (readchar ()); SCM c = make_char (readchar ());
__stdin = fd; __stdin = fd;