From 4b0d0af5eac3f9fab0c1f960ed2400aa26c76769 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@glug.org>
Date: Thu, 2 Mar 2000 22:49:10 +0000
Subject: [PATCH] (GSWIG_scm2str): New func.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@314 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 SWIG/Lib/guile/guile.swg | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/SWIG/Lib/guile/guile.swg b/SWIG/Lib/guile/guile.swg
index 423f6a0c9..9da9db8be 100644
--- a/SWIG/Lib/guile/guile.swg
+++ b/SWIG/Lib/guile/guile.swg
@@ -19,4 +19,11 @@
                                       gh_list(object, GH_NOT_PASSED));   \
     }
 
+char *
+GSWIG_scm2str (SCM s)
+{
+  int len = scm_string_length (s);
+  return gh_scm2newstr (s, &len);
+}
+
 /* guile.swg ends here */