Added Class#alias_method:for:.

lib/class.fnc

@@ -52,4 +52,9 @@ def class Class {
       }
     }
   }
+
+  def alias_method: new_method_name for: old_method_name {
+    "Defines an alias method for another method."
+    define_method: new_method_name with: (self method: old_method_name)
+  }
 }

src/bootstrap/class.cc

@@ -173,10 +173,14 @@ second argument to serve as the method's body.",
         method_block->override_self(true);
         dynamic_cast<Class*>(self)->def_method(arg1->to_s(), method_block);
         return t;
-      } else {
-        errorln("Class#define_method:with: expects String and Block arguments.");
-        return nil;
       }
+      if(Method* method = dynamic_cast<Method*>(arg2)) {
+        dynamic_cast<Class*>(self)->def_method(arg1->to_s(), method);
+        return t;
+      }
+
+      errorln("Class#define_method:with: expects String and Callable arguments.");
+      return nil;
     }
 
     METHOD(ClassClass, undefine_method)

tests/class.fnc

@@ -371,4 +371,18 @@ FancySpec describe: Class with: |it| {
     MyOuter::MyInner1 class_method1 should == MyOuter::MyInner1
     MyOuter::MyInner2 class_method2 should == [MyOuter::MyInner1, MyOuter::MyInner2]
   }
+
+  it should: "have an alias method as defined" for: 'alias_method:for: when: {
+    def class AClass {
+      def foo {
+        "in foo!"
+      }
+
+      alias_method: 'bar for: 'foo
+    }
+
+    obj = AClass new
+    obj foo should == "in foo!"
+    obj bar should == "in foo!"
+  }
 }