Index: lang/gauche/mecab-gauche-0.98pre1/mecab.c
===================================================================
--- lang/gauche/mecab-gauche-0.98pre1/mecab.c (revision 84)
+++ lang/gauche/mecab-gauche-0.98pre1/mecab.c (revision 85)
@@ -12,5 +12,4 @@
 #include "mecab.h"
 
-//ScmClass *Scm_MeCabClass;
 // mecab_t
 mecab_t* unwrap_mecab_t(ScmObj obj)
@@ -94,22 +93,4 @@
 
 /*
-static void MeCab_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx)
-{
-  ScmMeCab *m = SCM_MECAB(obj);//SCM_MECAB_UNBOX(obj);
-  //  const char *queue_name = q->getName().c_str();
-  Scm_Printf(out, "#<<mecab> 0x%x>", m->m);
-}
-
-static void MeCab_cleanup(ScmObj obj)
-{
-  ScmMeCab *m = SCM_MECAB(obj);
-  if (m->m) {
-    mecab_destroy(m->m);
-    m->m = NULL;
-  }
-}
-*/
-
-/*
  * Module initialization function.
  */
@@ -125,11 +106,5 @@
     /* Create the module if it doesn't exist yet. */
     mod = SCM_MODULE(SCM_FIND_MODULE("mecab", TRUE));
-    /*
-    Scm_MeCabClass =
-        Scm_MakeForeignPointerClass(mod, "<mecab>",
-                                    MeCab_print,
-                                    MeCab_cleanup,
-                                    SCM_FOREIGN_POINTER_KEEP_IDENTITY|SCM_FOREIGN_POINTER_MAP_NULL);
-    */
+
     /* Register stub-generated procedures */
     Scm_Init_mecablib(mod);
Index: lang/gauche/mecab-gauche-0.98pre1/mecablib.stub
===================================================================
--- lang/gauche/mecab-gauche-0.98pre1/mecablib.stub (revision 84)
+++ lang/gauche/mecab-gauche-0.98pre1/mecablib.stub (revision 85)
@@ -21,6 +21,4 @@
 (define-type <mecab-t> "mecab_t*" "mecab_t"
   "SCM_MECABP" "unwrap_mecab_t" "wrap_mecab_t")
-;(define-type <mecab_node_t> "mecab_node_t*" "mecab_node_t"
-;  "SCM_MECABP" "unwrap_mecab_node_t" "wrap_mecab_node_t")
 (define-type <const-mecab-node-t> "const mecab_node_t*" "const mecab_node_t"
   "SCM_MECAB_NODEP" "unwrap_mecab_node_t" "wrap_mecab_node_t")