fix misaligned assertion

This commit is contained in:
Sunrim KIM (keen) 2014-05-29 01:10:59 +09:00
parent fc6a919914
commit c8de0ad4ce
1 changed files with 2 additions and 2 deletions

View File

@ -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 */
}