core: Remove last_pair, list_ref, string_ref.
[mes.git] / posix.c
diff --git a/posix.c b/posix.c
index 843e9ba0a0bd06037ed1565332d75eccaf0a857b..e0d6631178897051e7ab650e619af3569c3b8bc7 100644 (file)
--- a/posix.c
+++ b/posix.c
@@ -48,13 +48,13 @@ force_output (SCM p) ///((arity . n))
 SCM
 open_input_file (SCM file_name)
 {
-  return make_number (open (string_to_cstring (file_name), O_RDONLY));
+  return MAKE_NUMBER (open (string_to_cstring (file_name), O_RDONLY));
 }
 
 SCM
 current_input_port ()
 {
-  return make_number (fileno (g_stdin));
+  return MAKE_NUMBER (fileno (g_stdin));
 }
 
 SCM