From 9d54244424f8ac2c64d39cc5db3871bb417f3887 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 13 Jan 2014 02:07:38 +0900
Subject: [PATCH] match the order of functions with R7RS

---
 src/port.c | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/port.c b/src/port.c
index ec6323f7..a36af6a8 100644
--- a/src/port.c
+++ b/src/port.c
@@ -409,6 +409,16 @@ pic_port_peek_char(pic_state *pic)
   }
 }
 
+static pic_value
+pic_port_write_simple(pic_state *pic)
+{
+  pic_value v;
+
+  pic_get_args(pic, "o", &v);
+  write(pic, v);
+  return pic_none_value();
+}
+
 static pic_value
 pic_port_newline(pic_state *pic)
 {
@@ -422,16 +432,6 @@ pic_port_newline(pic_state *pic)
   return pic_none_value();
 }
 
-static pic_value
-pic_port_write_simple(pic_state *pic)
-{
-  pic_value v;
-
-  pic_get_args(pic, "o", &v);
-  write(pic, v);
-  return pic_none_value();
-}
-
 static pic_value
 pic_port_write_char(pic_state *pic)
 {