From 51e7fc687e6d66d02b37550ca1dd005247bc715f Mon Sep 17 00:00:00 2001 From: usa Date: Mon, 16 Jun 2003 07:25:38 +0000 Subject: [PATCH] * ext/dl/dl.c (rb_dl_callback): use rb_block_proc() instead of rb_block_new(). * ext/win32ole/win32ole.c (ev_on_event): ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3949 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 7 +++++++ ext/dl/dl.c | 2 +- ext/win32ole/win32ole.c | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 72309c6509..8142247b0b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +Mon Jun 16 16:23:56 2003 NAKAMURA Usaku + + * ext/dl/dl.c (rb_dl_callback): use rb_block_proc() instead of + rb_block_new(). + + * ext/win32ole/win32ole.c (ev_on_event): ditto. + Mon Jun 16 16:06:47 2003 Yukihiro Matsumoto * eval.c (proc_alloc): re-unification of Block and Proc. Block diff --git a/ext/dl/dl.c b/ext/dl/dl.c index 7a639ac77a..22abb754d2 100644 --- a/ext/dl/dl.c +++ b/ext/dl/dl.c @@ -585,7 +585,7 @@ rb_dl_callback(int argc, VALUE argv[], VALUE self) switch (rb_scan_args(argc, argv, "11", &type, &proc)) { case 1: if (rb_block_given_p()) { - proc = rb_block_new(); + proc = rb_block_proc(); } else{ proc = Qnil; diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c index ecffa485ea..c738063aa8 100644 --- a/ext/win32ole/win32ole.c +++ b/ext/win32ole/win32ole.c @@ -5224,7 +5224,7 @@ ev_on_event(argc, argv, self, is_ary_arg) if(!NIL_P(event)) { Check_SafeStr(event); } - data = rb_ary_new3(4, rb_block_new(), event, args, is_ary_arg); + data = rb_ary_new3(4, rb_block_proc(), event, args, is_ary_arg); add_event_call_back(self, data); return Qnil; }