From: shugo@... (MAEDA Shugo)
Date: 1998-12-17T20:30:06+09:00
Subject: [ruby-dev:3858] Re: tkutil patch (for 1.1d0)

--Multipart_Thu_Dec_17_20:29:55_1998-1
Content-Type: text/plain; charset=ISO-2022-JP

前田です。

In message "[ruby-dev:3856] Re: tkutil patch (for 1.1d0)"
MAEDA Shugo <shugo@aianet.ne.jp> wrote:

> # 試してないのでこれでもうまくいかないかもしれません。

やっぱりダメでした(^^;


--Multipart_Thu_Dec_17_20:29:55_1998-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="ruby.diff"
Content-Transfer-Encoding: 7bit

--- eval.c~	Thu Dec 17 04:13:49 1998
+++ eval.c	Thu Dec 17 20:18:32 1998
@@ -4217,7 +4217,7 @@
     return exec_under(yield_under_i, under, self);
 }
 
-static VALUE
+VALUE
 rb_obj_instance_eval(argc, argv, self)
     int argc;
     VALUE *argv;
--- intern.h~	Thu Dec 17 04:18:19 1998
+++ intern.h	Thu Dec 17 20:19:28 1998
@@ -109,6 +109,7 @@
 VALUE rb_funcall2 _((VALUE, ID, int, VALUE*));
 void rb_backtrace _((void));
 ID rb_frame_last_func _((void));
+VALUE rb_obj_instance_eval _((int, VALUE*, VALUE));
 void rb_load _((VALUE, VALUE));
 void rb_provide _((char*));
 VALUE rb_f_require _((VALUE, VALUE));
--- ext/tk/tkutil.c.orig	Thu Dec 17 18:58:35 1998
+++ ext/tk/tkutil.c	Thu Dec 17 20:19:54 1998
@@ -30,7 +30,7 @@
     VALUE obj = rb_obj_alloc(class);
 
     rb_funcall2(obj, rb_intern("initialize"), argc, argv);
-    if (rb_iterator_p()) rb_yield_0(obj, obj);
+    if (rb_iterator_p()) rb_obj_instance_eval(0, 0, obj);
     return obj;
 }
 

--Multipart_Thu_Dec_17_20:29:55_1998-1
Content-Type: text/plain; charset=ISO-2022-JP


-- 
前田 修吾 (mailto:shugo@aianet.ne.jp)

--Multipart_Thu_Dec_17_20:29:55_1998-1--