From 08eef47e5b0ce77d457fca8a0f5e1fa257d984c6 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 3 Jul 2001 07:29:00 +0000
Subject: credit rb_name_error() fix to Nobuyoshi Nakada.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1558 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 marshal.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'marshal.c')

diff --git a/marshal.c b/marshal.c
index 29620125dd..d8f7703092 100644
--- a/marshal.c
+++ b/marshal.c
@@ -1097,3 +1097,23 @@ Init_marshal()
     rb_define_module_function(rb_mMarshal, "load", marshal_load, -1);
     rb_define_module_function(rb_mMarshal, "restore", marshal_load, -1);
 }
+
+VALUE
+rb_marshal_dump(obj, port)
+    VALUE obj, port;
+{
+    int argc = 1;
+    VALUE argv[2];
+
+    argv[0] = obj;
+    argv[1] = port;
+    if (!NIL_P(port)) argc = 2;
+    return marshal_dump(argc, argv);
+}
+
+VALUE
+rb_marshal_load(port)
+    VALUE port;
+{
+    return marshal_load(1, &port);
+}
-- 
cgit v1.2.3