rename pic_gc_alloc to pic_obj_alloc

include/picrin.h

@@ -23,7 +23,7 @@ typedef struct {
 } pic_state;
 
 void *pic_alloc(pic_state *, size_t);
-struct pic_object *pic_gc_alloc(pic_state *, size_t, enum pic_tt);
+struct pic_object *pic_obj_alloc(pic_state *, size_t, enum pic_tt);
 void pic_free(pic_state *, void *);
 
 pic_state *pic_open();

src/gc.c

@@ -79,7 +79,7 @@ pic_free(pic_state *pic, void *ptr)
 }
 
 struct pic_object *
-pic_gc_alloc(pic_state *pic, size_t size, enum pic_tt tt)
+pic_obj_alloc(pic_state *pic, size_t size, enum pic_tt tt)
 {
   struct pic_object *obj;
 
@@ -88,4 +88,3 @@ pic_gc_alloc(pic_state *pic, size_t size, enum pic_tt tt)
 
   return obj;
 }
-

src/pair.c

@@ -5,7 +5,7 @@ pic_cons(pic_state *pic, pic_value car, pic_value cdr)
 {
   struct pic_pair *pair;
 
-  pair = (struct pic_pair *)pic_gc_alloc(pic, sizeof(struct pic_pair), PIC_TT_PAIR);
+  pair = (struct pic_pair *)pic_obj_alloc(pic, sizeof(struct pic_pair), PIC_TT_PAIR);
   pair->car = car;
   pair->cdr = cdr;
 

src/symbol.c

@@ -9,7 +9,7 @@ pic_intern_cstr(pic_state *pic, const char *name)
   struct pic_symbol *sym;
   size_t len;
 
-  sym = (struct pic_symbol*)pic_gc_alloc(pic, sizeof(struct pic_symbol), PIC_TT_SYMBOL);
+  sym = (struct pic_symbol*)pic_obj_alloc(pic, sizeof(struct pic_symbol), PIC_TT_SYMBOL);
 
   /* clone name string */
   len = strlen(name);

src/vm.c

@@ -161,7 +161,7 @@ pic_codegen(pic_state *pic, pic_value obj, struct pic_env *env)
   struct pic_irep *irep;
   struct pic_code *code;
 
-  proc = (struct pic_proc *)pic_gc_alloc(pic, sizeof(struct pic_proc), PIC_TT_PROC);
+  proc = (struct pic_proc *)pic_obj_alloc(pic, sizeof(struct pic_proc), PIC_TT_PROC);
 
   proc->u.irep = irep = (struct pic_irep *)malloc(sizeof(struct pic_irep));
   irep->code = code = (struct pic_code *)malloc(sizeof(struct pic_code) * 1024);