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

Avoid garbage returns.

Browse source 
* posix.c (set-current-input-port): Return current-input-port.
  (force_output): Return scm_unspecified.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-11 20:13:56 +01:00
parent 696ff8bc77
commit 0da6a4a248
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
posix.c
View file

@ -42,6 +42,7 @@ force_output (SCM p) ///((arity . n))
if (TYPE (p) == PAIR && TYPE (car (p)) == NUMBER) fd = VALUE (car (p));
FILE *f = fd == 1 ? stdout : stderr;
fflush (f);
return cell_unspecified;
}
SCM
@ -60,4 +61,5 @@ SCM
set_current_input_port (SCM port)
{
g_stdin = VALUE (port) ? fdopen (VALUE (port), "r") : stdin;
return current_input_port ();
}