From fc6a9199147b26be966de550f5377fc3eeaa2ec9 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Thu, 29 May 2014 01:04:37 +0900
Subject: [PATCH 1/2] fix errer message of `u8-ready?`

---
 src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/port.c b/src/port.c
index 8c54cb01..3daa3939 100644
--- a/src/port.c
+++ b/src/port.c
@@ -499,7 +499,7 @@ pic_port_byte_ready_p(pic_state *pic)
 {
   struct pic_port *port = pic_stdin(pic);
 
-  assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "char-ready?");
+  assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "u8-ready?");
 
   pic_get_args(pic, "|p", &port);
 

From c8de0ad4cebed0e2ac8149ec42d5b2c2b9f323c7 Mon Sep 17 00:00:00 2001
From: "Sunrim KIM (keen)" <3han5chou7@gmail.com>
Date: Thu, 29 May 2014 01:10:59 +0900
Subject: [PATCH 2/2] fix misaligned assertion

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

diff --git a/src/port.c b/src/port.c
index 3daa3939..b9781264 100644
--- a/src/port.c
+++ b/src/port.c
@@ -499,10 +499,10 @@ pic_port_byte_ready_p(pic_state *pic)
 {
   struct pic_port *port = pic_stdin(pic);
 
-  assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "u8-ready?");
-
   pic_get_args(pic, "|p", &port);
 
+  assert_port_profile(port, PIC_PORT_IN | PIC_PORT_BINARY, PIC_PORT_OPEN, "u8-ready?");
+
   return pic_true_value();      /* FIXME: always returns #t */
 }