Merge pull request #121 from KeenS/hotfix

fix errer message of `u8-ready?`
This commit is contained in:
Yuichi Nishiwaki 2014-05-29 01:36:57 +09:00
commit dc0aa57f78
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, "char-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 */
}