Avoid garbage returns.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 11 Dec 2016 19:13:56 +0000 (20:13 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:35:19 +0000 (20:35 +0100)
* posix.c (set-current-input-port): Return current-input-port.
  (force_output): Return scm_unspecified.

posix.c

diff --git a/posix.c b/posix.c
index 092400cd09581ebf743e5622e2efae62193acee9..843e9ba0a0bd06037ed1565332d75eccaf0a857b 100644 (file)
--- a/posix.c
+++ b/posix.c
@@ -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 ();
 }