Revision
3899
Author
martinlagardette@apple.com
Date
2010-03-30 17:16:45 -0700 (Tue, 30 Mar 2010)

Log Message

Only allow classes as classes super

Modified Paths

Diff

Modified: MacRuby/trunk/vm.cpp (3898 => 3899)


--- MacRuby/trunk/vm.cpp	2010-03-30 19:48:13 UTC (rev 3898)
+++ MacRuby/trunk/vm.cpp	2010-03-31 00:16:45 UTC (rev 3899)
@@ -1434,7 +1434,10 @@
 		super = rb_cObject;
 	    }
 	    else {
-		check_if_module(super);
+		if (TYPE(super) != T_CLASS) {
+		    rb_raise(rb_eTypeError,
+			"wrong argument type (expected Class)");
+		}
 	    }
 	    klass = rb_define_class_id(path, super);
 	    rb_set_class_path2(klass, outer, rb_id2name(path), const_outer);