summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--ext/dl/dl.c2
-rw-r--r--ext/win32ole/win32ole.c2
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 <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 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;
}