[uim-commit] r2875 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-09 10:48:35 -0800 (Mon, 09 Jan 2006)
New Revision: 2875

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (scm_p_string_append): Fix lacking null termination


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2006-01-09 17:13:49 UTC (rev 2874)
+++ branches/r5rs/sigscheme/operations.c	2006-01-09 18:48:35 UTC (rev 2875)
@@ -1456,6 +1456,7 @@
         for (src = SCM_STRING_STR(str); *src;)
             *dst++ = *src++;
     }
+    *dst = '\0';
 
     ret = MAKE_STRING((char *)"");  /* dummy string */
     SCM_STRING_SET_STR(ret, new_str);