* strings.c (scm_mem2string): use memcpy rather than by-hand loop.

Thanks to Dale P. Smith.

diff --git a/libguile/strings.c b/libguile/strings.c
index ac5cfd2..d389594 100644 (file)
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -129,9 +129,7 @@ scm_mem2string (const char *src, size_t len)
 {
   SCM s = scm_allocate_string (len);
   char *dst = SCM_STRING_CHARS (s);
-
-  while (len--)
-    *dst++ = *src++;
+  memcpy (dst, src, len);
   return s;
 }