match the order of functions with R7RS

This commit is contained in:
Yuichi Nishiwaki 2014-01-13 02:07:38 +09:00
parent 4a14531702
commit 9d54244424
1 changed files with 10 additions and 10 deletions

View File

@ -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)
{