(GSWIG_scm2str) Simplified.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@752 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-08-31 15:03:09 +00:00
commit 5bda0a34fa

View file

@ -41,10 +41,10 @@ extern "C" {
static char * static char *
GSWIG_scm2str (SCM s) GSWIG_scm2str (SCM s)
{ {
int len = scm_string_length (s); return gh_scm2newstr (s, NULL);
return gh_scm2newstr (s, &len);
} }
/* This function replaces gh_scm2char, which is broken in Guile 1.4 */
static char static char
GSWIG_scm2char (SCM s) GSWIG_scm2char (SCM s)
{ {