add Kernel#send

2 files changed, 9 insertions, 8 deletions

diff --git a/mrblib/kernel.rb b/mrblib/kernel.rb
index af743e12a..de5196482 100644
--- a/mrblib/kernel.rb
+++ b/mrblib/kernel.rb
@@ -28,13 +28,14 @@ module Kernel
   # Alias for +send+.
   #
   # ISO 15.3.1.3.4
-  def __send__(symbol, *args, &block)
+  #def __send__(symbol, *args, &block)
     ### *** TODO *** ###
-  end
+  #end
 
   # 15.3.1.3.18
   def instance_eval(string=nil, &block)
     ### *** TODO *** ###
+    raise "Not implemented yet"
   end
 
   ##
@@ -62,9 +63,9 @@ module Kernel
   # block.
   #
   # ISO 15.3.1.3.44
-  def send(symbol, *args, &block)
+  #def send(symbol, *args, &block)
     ### *** TODO *** ###
-  end
+  #end
 
   ##
   # Print arguments
diff --git a/src/kernel.c b/src/kernel.c
index 17951afc7..9ee9e8d34 100644
--- a/src/kernel.c
+++ b/src/kernel.c
@@ -274,11 +274,11 @@ mrb_f_send(int argc, mrb_value *argv, mrb_value recv)
 static mrb_value
 mrb_f_send_m(mrb_state *mrb, mrb_value self)
 {
-  mrb_value *argv;
+  mrb_value name, block, *argv;
   int argc;
-
-  mrb_get_args(mrb, "*", &argv, &argc);
-  return mrb_f_send(argc, argv, self);
+  
+  mrb_get_args(mrb, "&o*", &block, &name, &argv, &argc);
+  return mrb_funcall_with_block(mrb,self, mrb_string_value_ptr(mrb, name), argc, argv, block);
 }
 
 /* 15.3.1.2.1  */