mes: Iterative recursive macro expand.
[mes.git] / src / posix.c
index 95b4df73ab7899ef0b6316d2fdd90dea4789c1d7..fe7c9b381377b4f3f66c080bae6277643f7375e9 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * Mes --- Maxwell Equations of Software
- * Copyright © 2016,2017 Jan Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2016,2017,2018 Jan Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of Mes.
  *
@@ -156,8 +156,9 @@ open_input_file (SCM file_name)
 SCM
 set_current_input_port (SCM port)
 {
+  int prev = g_stdin;
   g_stdin = VALUE (port) ? VALUE (port) : STDIN;
-  return current_input_port ();
+  return MAKE_NUMBER (prev);
 }
 
 SCM