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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-01 02:26:20 -0800 (Tue, 01 Nov 2005)
New Revision: 1927

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (ScmOp_read_char, ScmOp_peek_char): Fix misuse of Scm_NewChar()


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-11-01 10:02:12 UTC (rev 1926)
+++ branches/r5rs/sigscheme/io.c	2005-11-01 10:26:20 UTC (rev 1927)
@@ -35,6 +35,7 @@
   System Include
 =======================================*/
 #include <stdio.h>
+#include <string.h>
 
 /*=======================================
   Local Include
@@ -380,7 +381,7 @@
     SCM_PORT_GETC(port, buf[0]);
     buf[1] = '\0';
 #endif /* SCM_USE_NEWPORT */
-    return Scm_NewChar(buf);
+    return Scm_NewChar(strdup(buf));
 }
 
 ScmObj ScmOp_peek_char(ScmObj args)
@@ -400,7 +401,7 @@
 
     buf[0] = ch;
     buf[1] = '\0';
-    return Scm_NewChar(buf);
+    return Scm_NewChar(strdup(buf));
 #else /* SCM_USE_NEWPORT */
     /* FIXME: implement this */
     return SCM_FALSE;