0
@@ -28,3 +28,32 @@ class Object
0
   end
0
 
0
 end
0
+
0
+class Class
0
+  
0
+  inline(:C) do |builder|
0
+    builder.c %{
0
+      VALUE uninclude(VALUE mod) 
0
+      {
0
+        VALUE p, prev;
0
+        Check_Type(mod, T_MODULE);
0
+        if (mod == rb_mKernel) 
0
+          rb_raise(rb_eArgError, "unincluding Kernel is prohibited");
0
+
0
+        p = self;
0
+        
0
+        while (p) {
0
+            if (p == mod || RCLASS(p)->m_tbl == RCLASS(mod)->m_tbl) {
0
+                RCLASS(prev)->super = RCLASS(p)->super;
0
+                rb_clear_cache();
0
+                return self;
0
+            }
0
+            prev = p;
0
+            p = RCLASS(p)->super;
0
+        }
0
+        return self;
0
+      }
0
+    }
0
+  end
0
+
0
+end