Exemple #1
0
void
pic_init_core(pic_state *pic)
{
  int ai;

  ai = pic_gc_arena_preserve(pic);
  pic_init_bool(pic); DONE;
  pic_init_pair(pic); DONE;
  pic_init_port(pic); DONE;
  pic_init_number(pic); DONE;
  pic_init_time(pic); DONE;
  pic_init_system(pic); DONE;
  pic_init_file(pic); DONE;
  pic_init_proc(pic); DONE;
  pic_init_symbol(pic); DONE;
  pic_init_vector(pic); DONE;
  pic_init_blob(pic); DONE;

  pic_load_stdlib(pic); DONE;
}
Exemple #2
0
static void
pic_init_core(pic_state *pic)
{
  size_t ai = pic_enter(pic);

  pic_init_bool(pic); DONE;
  pic_init_pair(pic); DONE;
  pic_init_port(pic); DONE;
  pic_init_number(pic); DONE;
  pic_init_proc(pic); DONE;
  pic_init_symbol(pic); DONE;
  pic_init_vector(pic); DONE;
  pic_init_blob(pic); DONE;
  pic_init_cont(pic); DONE;
  pic_init_char(pic); DONE;
  pic_init_error(pic); DONE;
  pic_init_str(pic); DONE;
  pic_init_var(pic); DONE;
  pic_init_dict(pic); DONE;
  pic_init_record(pic); DONE;
  pic_init_weak(pic); DONE;
  pic_init_state(pic); DONE;

#if PIC_USE_READ
  pic_init_read(pic); DONE;
#endif
#if PIC_USE_WRITE
  pic_init_write(pic); DONE;
#endif
#if PIC_USE_FILE
  pic_init_file(pic); DONE;
#endif
#if PIC_USE_EVAL
  pic_init_eval(pic); DONE;
#endif
}