rename procedure creation functions

include/picrin/proc.h

@@ -26,7 +26,7 @@ struct pic_proc {
 
 #define pic_proc_cfunc_p(o) (pic_proc_ptr(o)->cfunc_p)
 
-struct pic_proc *pic_proc_new(pic_state *, struct pic_irep *, struct pic_env *);
+struct pic_proc *pic_proc_new(pic_state *, pic_func_t);
-struct pic_proc *pic_proc_new_cfunc(pic_state *, pic_func_t);
+struct pic_proc *pic_proc_new_irep(pic_state *, struct pic_irep *, struct pic_env *);
 
 #endif

src/codegen.c

@@ -913,7 +913,7 @@ pic_codegen(pic_state *pic, pic_value obj)
   state->irep->cv_num = 0;
   state->irep->cv_tbl = NULL;
 
-  proc = pic_proc_new(pic, state->irep, NULL);
+  proc = pic_proc_new_irep(pic, state->irep, NULL);
 
   destroy_codegen_state(pic, state);
 
@@ -936,7 +936,7 @@ pic_defun(pic_state *pic, const char *name, pic_func_t cfunc)
   struct pic_proc *proc;
   int idx;
 
-  proc = pic_proc_new_cfunc(pic, cfunc);
+  proc = pic_proc_new(pic, cfunc);
   idx = scope_global_define(pic, name);
   pic->globals[idx] = pic_obj_value(proc);
 

src/cont.c

@@ -161,7 +161,8 @@ pic_cont_callcc(pic_state *pic)
   else {
     struct pic_proc *c;
 
-    c = pic_proc_new_cfunc(pic, cont_call);
+    c = pic_proc_new(pic, cont_call);
+
     /* save the continuation object in proc */
     c->env = (struct pic_env *)pic_obj_alloc(pic, sizeof(struct pic_env), PIC_TT_ENV);
     c->env->up = NULL;

src/proc.c

@@ -4,19 +4,7 @@
 #include "picrin/irep.h"
 
 struct pic_proc *
-pic_proc_new(pic_state *pic, struct pic_irep *irep, struct pic_env *env)
+pic_proc_new(pic_state *pic, pic_func_t cfunc)
-{
-  struct pic_proc *proc;
-
-  proc = (struct pic_proc *)pic_obj_alloc(pic, sizeof(struct pic_proc), PIC_TT_PROC);
-  proc->cfunc_p = false;
-  proc->u.irep = irep;
-  proc->env = env;
-  return proc;
-}
-
-struct pic_proc *
-pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc)
 {
   struct pic_proc *proc;
 
@@ -27,6 +15,18 @@ pic_proc_new_cfunc(pic_state *pic, pic_func_t cfunc)
   return proc;
 }
 
+struct pic_proc *
+pic_proc_new_irep(pic_state *pic, struct pic_irep *irep, struct pic_env *env)
+{
+  struct pic_proc *proc;
+
+  proc = (struct pic_proc *)pic_obj_alloc(pic, sizeof(struct pic_proc), PIC_TT_PROC);
+  proc->cfunc_p = false;
+  proc->u.irep = irep;
+  proc->env = env;
+  return proc;
+}
+
 static pic_value
 pic_proc_proc_p(pic_state *pic)
 {

src/vm.c

@@ -613,7 +613,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
     CASE(OP_LAMBDA) {
       struct pic_proc *proc;
 
-      proc = pic_proc_new(pic, pic->irep[c.u.i], pic->ci->env);
+      proc = pic_proc_new_irep(pic, pic->irep[c.u.i], pic->ci->env);
       PUSH(pic_obj_value(proc));
       pic_gc_arena_restore(pic, ai);
       NEXT;