current write implementation in fact behaves as same as write-simple

This commit is contained in:
Yuichi Nishiwaki 2014-01-13 01:34:59 +09:00
parent 70f6b59856
commit ec9305e9a5
1 changed files with 2 additions and 2 deletions

View File

@ -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);
} }