From 80a7e31901e146ad770fe07052dddf2c4406b9a7 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 18 Feb 2014 04:24:41 +0900 Subject: [PATCH] s/port_/write_/g --- src/write.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/write.c b/src/write.c index 2e16e9b0..5a716d5b 100644 --- a/src/write.c +++ b/src/write.c @@ -410,7 +410,7 @@ pic_fdebug(pic_state *pic, pic_value obj, XFILE *file) } static pic_value -pic_port_write(pic_state *pic) +pic_write_write(pic_state *pic) { pic_value v; struct pic_port *port = pic_stdout(pic); @@ -421,7 +421,7 @@ pic_port_write(pic_state *pic) } static pic_value -pic_port_write_simple(pic_state *pic) +pic_write_write_simple(pic_state *pic) { pic_value v; struct pic_port *port = pic_stdout(pic); @@ -432,7 +432,7 @@ pic_port_write_simple(pic_state *pic) } static pic_value -pic_port_write_shared(pic_state *pic) +pic_write_write_shared(pic_state *pic) { pic_value v; struct pic_port *port = pic_stdout(pic); @@ -446,8 +446,8 @@ void pic_init_write(pic_state *pic) { pic_deflibrary ("(scheme write)") { - pic_defun(pic, "write", pic_port_write); - pic_defun(pic, "write-simple", pic_port_write_simple); - pic_defun(pic, "write-shared", pic_port_write_shared); + pic_defun(pic, "write", pic_write_write); + pic_defun(pic, "write-simple", pic_write_write_simple); + pic_defun(pic, "write-shared", pic_write_write_shared); } }