current write implementation in fact behaves as same as write-simple
This commit is contained in:
parent
70f6b59856
commit
ec9305e9a5
|
@ -298,7 +298,7 @@ pic_port_output_port_open_p(pic_state *pic)
|
||||||
}
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
pic_port_write(pic_state *pic)
|
pic_port_write_simple(pic_state *pic)
|
||||||
{
|
{
|
||||||
pic_value v;
|
pic_value v;
|
||||||
|
|
||||||
|
@ -427,7 +427,7 @@ pic_init_port(pic_state *pic)
|
||||||
|
|
||||||
DEFLIBRARY(pic, "(scheme write)")
|
DEFLIBRARY(pic, "(scheme write)")
|
||||||
{
|
{
|
||||||
pic_defun(pic, "write", pic_port_write);
|
pic_defun(pic, "write-simple", pic_port_write_simple);
|
||||||
}
|
}
|
||||||
ENDLIBRARY(pic);
|
ENDLIBRARY(pic);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue