Added mirror for Proc#curry. Improves #3406.

There is still a lot of cruft in the Rubinius kernel but generally we use the
mirror facility to implement methods that are not public Ruby API methods (and are
generally C functions in MRI).

kernel/common/load_order.txt

@@ -5,6 +5,7 @@ autoload.rbc
 module.rbc
 binding.rbc
 proc.rbc
+proc_mirror.rbc
 enumerable_helper.rbc
 enumerable.rbc
 enumerator.rbc

kernel/common/proc.rb

@@ -14,23 +14,6 @@ def self.__from_block__(env)
     end
   end
 
-  def self.__make_curry_proc__(proc, passed, arity)
-    is_lambda = proc.lambda?
-    passed.freeze
-
-    __send__((is_lambda ? :lambda : :proc)) do |*argv, &passed_proc|
-      my_passed = passed + argv
-      if my_passed.length < arity
-        if !passed_proc.nil?
-          warn "#{caller[0]}: given block not used"
-        end
-        __make_curry_proc__(proc, my_passed, arity)
-      else
-        proc.call(*my_passed)
-      end
-    end
-  end
-
   def self.new(*args)
     env = nil
 
@@ -111,7 +94,8 @@ def curry(curried_arity = nil)
 
     args = []
 
-    f = Proc.__make_curry_proc__(self, [], arity)
+    m = Rubinius::Mirror.reflect self
+    f = m.curry self, [], arity
 
     f.singleton_class.send(:define_method, :binding) {
       raise ArgumentError, "cannot create binding from f proc"

kernel/common/proc_mirror.rb

@@ -0,0 +1,20 @@
+module Rubinius
+  class Mirror
+    class Proc < Mirror
+      def curry(executable, args, arity)
+        args.freeze
+
+        name = executable.lambda? ? :lambda : :proc
+
+        Proc.__send__(name) do |*a, &b|
+          all_args = args + a
+          if all_args.size < arity
+            curry executable, all_args, arity
+          else
+            executable[*all_args]
+          end
+        end
+      end
+    end
+  end
+end