conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

20
src/port.c
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 static pic_value
pic_port_newline(pic_state *pic) pic_port_newline(pic_state *pic)
{ {
@ -422,16 +432,6 @@ pic_port_newline(pic_state *pic)
return pic_none_value(); 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 static pic_value
pic_port_write_char(pic_state *pic) pic_port_write_char(pic_state *pic)
{ {