From 989973023dd4592c3713b67d786e7353f4981221 Mon Sep 17 00:00:00 2001
From: Robin Templeton <robin@terpri.org>
Date: Mon, 18 Aug 2014 01:18:03 -0400
Subject: [PATCH] guile string conversion functions

---
 src/fns.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/src/fns.c b/src/fns.c
index 05e79bb060..01a1ea761d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1074,6 +1074,23 @@ an error is signaled.  */)
   return string;
 }
 
+DEFUN ("string-to-scheme", Fstring_to_scheme, Sstring_to_scheme, 1, 1, 0, 0)
+  (Lisp_Object string)
+{
+  CHECK_STRING (string);
+  return scm_from_utf8_stringn (SSDATA (string), SBYTES (string));
+}
+
+DEFUN ("string-from-scheme", Fstring_from_scheme, Sstring_from_scheme, 1, 1, 0, 0)
+  (Lisp_Object string)
+{
+  char *s;
+  size_t lenp;
+
+  CHECK_STRING (string);
+  s = scm_to_utf8_stringn (string, &lenp);
+  return make_string (s, lenp);
+}
 
 DEFUN ("copy-alist", Fcopy_alist, Scopy_alist, 1, 1, 0,
        doc: /* Return a copy of ALIST.
-- 
2.20.1