From e3635aed118bf8f8f94858d05529a3820fdbcd82 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Matthias=20K=C3=B6ppe?= <mkoeppe@mail.math.uni-magdeburg.de>
Date: Tue, 2 Mar 2004 12:58:00 +0000
Subject: [PATCH] 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
---
 Lib/guile/guile_scm_run.swg | 2 ++
 1 file changed, 2 insertions(+)

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;