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)); if (TYPE (p) == PAIR && TYPE (car (p)) == NUMBER) fd = VALUE (car (p));
FILE *f = fd == 1 ? stdout : stderr; FILE *f = fd == 1 ? stdout : stderr;
fflush (f); fflush (f);
return cell_unspecified;
} }
SCM SCM
@ -60,4 +61,5 @@ SCM
set_current_input_port (SCM port) set_current_input_port (SCM port)
{ {
g_stdin = VALUE (port) ? fdopen (VALUE (port), "r") : stdin; g_stdin = VALUE (port) ? fdopen (VALUE (port), "r") : stdin;
return current_input_port ();
} }