From 310d524062b544c538977c5e33548889fbb85926 Mon Sep 17 00:00:00 2001

From: Sergey Bolshakov <sbolshakov@altlinux.org>

Date: Wed, 26 Apr 2017 13:40:47 +0300

Subject: [PATCH 1/2] guile: first arg to scm_error should be symbol, not

 string

---

 Lib/exception.i | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Lib/exception.i b/Lib/exception.i

index da0d56cdd..534f1d6f5 100644

--- a/Lib/exception.i

+++ b/Lib/exception.i

@@ -31,7 +31,7 @@

   SWIGINTERN void SWIG_exception_ (int code, const char *msg,

                                const char *subr) {

 #define ERROR(scmerr)					\

-	scm_error(scm_from_locale_string((char *) (scmerr)),	\

+	scm_error(scm_from_locale_symbol((char *) (scmerr)),	\

 		  (char *) subr, (char *) msg,		\

 		  SCM_EOL, SCM_BOOL_F)

 #define MAP(swigerr, scmerr)			\

-- 

2.33.8