Load bz2-0.2.2 into trunk.

git-svn-id: file:///home/knu/repos/ts/bz2/trunk@26 7b13413c-833f-de11-9cfd-0015170b777a
brianmario · Dec 4, 2004 · 0c5589f · 0c5589f
1 parent ec3b93c
commit 0c5589f
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/bz2.c b/bz2.c
@@ -207,8 +207,8 @@ bz_writer_internal_close(bzf)
 }
 
 static VALUE
-bz_internal_finalize(ary)
-    VALUE ary;
+bz_internal_finalize(ary, obj)
+    VALUE ary, obj;
 {
     VALUE elem;
     int closed, i;
@@ -1465,12 +1465,11 @@ bz_proc_new(func, val)
     VALUE val;
 {
     VALUE tmp = Data_Wrap_Struct(rb_cData, 0, 0, 0);
-    rb_define_singleton_method(tmp, "tmp_proc", func, 0);
+    rb_define_singleton_method(tmp, "tmp_proc", func, 1);
     return rb_funcall2(rb_funcall(tmp, rb_intern("method"), 1, 
-                                 ID2SYM(rb_intern("tmp_proc"))),
+                                  ID2SYM(rb_intern("tmp_proc"))),
                        rb_intern("to_proc"), 0, 0);
 }
-
 
 void Init_bz2()
 {