move features procedure defun to state.c benz

2015-06-17 00:13:00 +09:00
parent 62b7c1a0f9
commit 63d3510de8
4 changed files with 16 additions and 14 deletions
@@ -7,14 +7,6 @@
 void pic_init_contrib(pic_state *);
 void pic_load_piclib(pic_state *);

-static pic_value
-pic_features(pic_state *pic)
-{
-  pic_get_args(pic, "");
-
-  return pic->features;
-}
-
 static pic_value
 pic_libraries(pic_state *pic)
 {
@@ -38,10 +30,6 @@ pic_init_picrin(pic_state *pic)
    pic_defun(pic, "libraries", pic_libraries);
  }

-  pic_deflibrary (pic, "(scheme base)") {
-    pic_defun(pic, "features", pic_features);
-  }
-
  pic_init_contrib(pic);
  pic_load_piclib(pic);
 }