* 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

@@ -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

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;

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;
 }