diff --git a/include/picrin/macro.h b/include/picrin/macro.h
index 6224a537..e4f03b42 100644
--- a/include/picrin/macro.h
+++ b/include/picrin/macro.h
@@ -33,7 +33,7 @@ struct pic_senv *pic_null_syntactic_environment(pic_state *);
 bool pic_identifier_p(pic_state *pic, pic_value obj);
 bool pic_identifier_eq_p(pic_state *, struct pic_senv *, pic_sym, struct pic_senv *, pic_sym);
 
-struct pic_senv *pic_senv_new(pic_state *, struct pic_senv *);
+struct pic_senv *pic_make_senv(pic_state *, struct pic_senv *);
 
 pic_sym pic_add_rename(pic_state *, struct pic_senv *, pic_sym);
 bool pic_find_rename(pic_state *, struct pic_senv *, pic_sym, pic_sym * /* = NULL */);
diff --git a/macro.c b/macro.c
index ec627215..7db0775e 100644
--- a/macro.c
+++ b/macro.c
@@ -164,7 +164,7 @@ macroexpand_lambda(pic_state *pic, pic_value expr, struct pic_senv *senv)
     pic_error(pic, "syntax error");
   }
 
-  in = pic_senv_new(pic, senv);
+  in = pic_make_senv(pic, senv);
 
   for (a = pic_cadr(pic, expr); pic_pair_p(a); a = pic_cdr(pic, a)) {
     pic_value v = pic_car(pic, a);
@@ -386,7 +386,7 @@ pic_macroexpand(pic_state *pic, pic_value expr, struct pic_lib *lib)
 }
 
 struct pic_senv *
-pic_senv_new(pic_state *pic, struct pic_senv *up)
+pic_make_senv(pic_state *pic, struct pic_senv *up)
 {
   struct pic_senv *senv;
 
@@ -403,7 +403,7 @@ pic_null_syntactic_environment(pic_state *pic)
 {
   struct pic_senv *senv;
 
-  senv = pic_senv_new(pic, NULL);
+  senv = pic_make_senv(pic, NULL);
 
   pic_define_syntactic_keyword(pic, senv, pic->sDEFINE_LIBRARY, pic->rDEFINE_LIBRARY);
   pic_define_syntactic_keyword(pic, senv, pic->sIMPORT, pic->rIMPORT);