2000-03-08

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_4@635 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 21 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 6ac4d46e60..e2662c1595 100644
--- a/eval.c
+++ b/eval.c
@@ -4170,6 +4170,27 @@ rb_funcall3(recv, mid, argc, argv)
     return rb_call(CLASS_OF(recv), recv, mid, argc, argv, 0);
 }
 
+VALUE
+rb_call_super(argc, argv)
+    int argc;
+    VALUE *argv;
+{
+    VALUE result;
+
+    if (ruby_frame->last_class == 0) {	
+	rb_raise(rb_eNameError, "superclass method `%s' must be enabled by rb_enable_super()",
+		 rb_id2name(ruby_frame->last_func));
+    }
+
+    PUSH_ITER(ruby_iter->iter?ITER_PRE:ITER_NOT);
+    result = rb_call(RCLASS(ruby_frame->last_class)->super,
+		     ruby_frame->self, ruby_frame->last_func,
+		     argc, argv, 3);
+    POP_ITER();
+
+    return result;
+}
+
 static VALUE
 backtrace(lev)
     int lev;