(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:
parent
26b041e826
commit
5bda0a34fa
1 changed files with 2 additions and 2 deletions
|
|
@ -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)
|
||||||
{
|
{
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue