s/port_/write_/g
This commit is contained in:
parent
26808c1f51
commit
80a7e31901
12
src/write.c
12
src/write.c
|
@ -410,7 +410,7 @@ pic_fdebug(pic_state *pic, pic_value obj, XFILE *file)
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
pic_port_write(pic_state *pic)
|
pic_write_write(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_value v;
|
pic_value v;
|
||||||
struct pic_port *port = pic_stdout(pic);
|
struct pic_port *port = pic_stdout(pic);
|
||||||
|
@ -421,7 +421,7 @@ pic_port_write(pic_state *pic)
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
pic_port_write_simple(pic_state *pic)
|
pic_write_write_simple(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_value v;
|
pic_value v;
|
||||||
struct pic_port *port = pic_stdout(pic);
|
struct pic_port *port = pic_stdout(pic);
|
||||||
|
@ -432,7 +432,7 @@ pic_port_write_simple(pic_state *pic)
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
pic_port_write_shared(pic_state *pic)
|
pic_write_write_shared(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_value v;
|
pic_value v;
|
||||||
struct pic_port *port = pic_stdout(pic);
|
struct pic_port *port = pic_stdout(pic);
|
||||||
|
@ -446,8 +446,8 @@ void
|
||||||
pic_init_write(pic_state *pic)
|
pic_init_write(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_deflibrary ("(scheme write)") {
|
pic_deflibrary ("(scheme write)") {
|
||||||
pic_defun(pic, "write", pic_port_write);
|
pic_defun(pic, "write", pic_write_write);
|
||||||
pic_defun(pic, "write-simple", pic_port_write_simple);
|
pic_defun(pic, "write-simple", pic_write_write_simple);
|
||||||
pic_defun(pic, "write-shared", pic_port_write_shared);
|
pic_defun(pic, "write-shared", pic_write_write_shared);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue