* 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: http://svn.ruby-lang.org/repos/ruby/trunk@3949 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 9 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 72309c650..8142247b0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Mon Jun 16 16:23:56 2003  NAKAMURA Usaku <usa@ruby-lang.org>
+
+	* 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  <matz@ruby-lang.org>
 
 	* eval.c (proc_alloc): re-unification of Block and Proc.  Block
diff --git a/ext/dl/dl.c b/ext/dl/dl.c
index 7a639ac77..22abb754d 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 ecffa485e..c738063aa 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;
 }