From ec9305e9a5b32d14be71670b8dc4256d30efe914 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Mon, 13 Jan 2014 01:34:59 +0900 Subject: [PATCH] current write implementation in fact behaves as same as write-simple --- src/port.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/port.c b/src/port.c index 1fb2787f..2d07dc98 100644 --- a/src/port.c +++ b/src/port.c @@ -298,7 +298,7 @@ pic_port_output_port_open_p(pic_state *pic) } static pic_value -pic_port_write(pic_state *pic) +pic_port_write_simple(pic_state *pic) { pic_value v; @@ -427,7 +427,7 @@ pic_init_port(pic_state *pic) DEFLIBRARY(pic, "(scheme write)") { - pic_defun(pic, "write", pic_port_write); + pic_defun(pic, "write-simple", pic_port_write_simple); } ENDLIBRARY(pic); }