From 5bda0a34fa50417aa84d1cfb9b4d0dc84d4a5a67 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= <mkoeppe@mail.math.uni-magdeburg.de>
Date: Thu, 31 Aug 2000 15:03:09 +0000
Subject: [PATCH] (GSWIG_scm2str) Simplified.

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

diff --git a/SWIG/Lib/guile/guiledec.swg b/SWIG/Lib/guile/guiledec.swg
index f919004d8..b47dab9a2 100644
--- a/SWIG/Lib/guile/guiledec.swg
+++ b/SWIG/Lib/guile/guiledec.swg
@@ -41,10 +41,10 @@ extern "C" {
 static char *
 GSWIG_scm2str (SCM s)
 {
-  int len = scm_string_length (s);
-  return gh_scm2newstr (s, &len);
+  return gh_scm2newstr (s, NULL);
 }
 
+/* This function replaces gh_scm2char, which is broken in Guile 1.4 */
 static char
 GSWIG_scm2char (SCM s)
 {