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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-15 19:07:54 -0800 (Thu, 15 Dec 2005)
New Revision: 2593

Modified:
   branches/r5rs/sigscheme/strport.c
Log:
* sigscheme/strport.c
  - (ostrport_append): fixed the bug introduced in r2592


Modified: branches/r5rs/sigscheme/strport.c
===================================================================
--- branches/r5rs/sigscheme/strport.c	2005-12-16 02:57:51 UTC (rev 2592)
+++ branches/r5rs/sigscheme/strport.c	2005-12-16 03:07:54 UTC (rev 2593)
@@ -416,7 +416,7 @@
 
     /* extend the buffer */
     if (port->buf_size - port->cur < len + sizeof((char)'\0')) {
-        port->buf_size += (!port->buf_size) ? sizeof((char)'\0') : len;
+        port->buf_size += (!port->buf_size) ? len + sizeof((char)'\0') : len;
         new_str = realloc(port->str, port->buf_size);
         if (!new_str)
             SCM_PORT_ERROR_NOMEM(BYTE, NULL, ScmOutputStrPort);