diff options
author | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2004-03-02 12:58:00 +0000 |
---|---|---|
committer | Matthias Köppe <mkoeppe@mail.math.uni-magdeburg.de> | 2004-03-02 12:58:00 +0000 |
commit | e3635aed118bf8f8f94858d05529a3820fdbcd82 (patch) | |
tree | 7f9675977bc955924018cd3a6634efca9f011c29 /Lib/guile/guile_scm_run.swg | |
parent | baded88f325e3c1fc0390e8538eced9f40760717 (diff) | |
download | swig-e3635aed118bf8f8f94858d05529a3820fdbcd82.tar.gz |
In -scm mode, don't forget to check the type of string arguments.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5742 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/guile/guile_scm_run.swg')
-rw-r--r-- | Lib/guile/guile_scm_run.swg | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Lib/guile/guile_scm_run.swg b/Lib/guile/guile_scm_run.swg index 6ac99f121..92cb424f2 100644 --- a/Lib/guile/guile_scm_run.swg +++ b/Lib/guile/guile_scm_run.swg @@ -77,6 +77,8 @@ SWIG_Guile_scm2newstr(SCM str, size_t *len) { char *ret; size_t l; + SCM_ASSERT (SCM_STRINGP(str), str, 1, FUNC_NAME); + l = SCM_STRING_LENGTH(str); ret = (char *) SWIG_malloc( (l + 1) * sizeof(char)); if (!ret) return NULL; |