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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-28 12:46:18 -0700 (Wed, 28 Sep 2005)
New Revision: 1677

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (ScmOp_read_char): Simplify
  - (ScmOp_peek_char, ScmOp_char_readyp): Return dummy value


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-09-28 19:45:43 UTC (rev 1676)
+++ branches/r5rs/sigscheme/io.c	2005-09-28 19:46:18 UTC (rev 1677)
@@ -282,14 +282,13 @@
 ScmObj ScmOp_read_char(ScmObj args)
 {
     ScmObj port = scm_current_input_port;
-    char  *buf  = NULL;
+    char   buf[2];
 
     /* get port */
     if (!NULLP(args) && PORTP(CAR(args)))
         port = CAR(args);
 
     /* TODO : implement this multibyte-char awareness */
-    buf = (char *)malloc(sizeof(char) * 2);
     buf[0] = getc(SCM_PORTINFO_FILE(port));
     buf[1] = '\0';
     return Scm_NewChar(buf);
@@ -297,7 +296,8 @@
 
 ScmObj ScmOp_peek_char(ScmObj args, ScmObj env)
 {
-    /* TODO : implement this */
+    /* FIXME: implement this */
+    return SCM_FALSE;
 }
 
 ScmObj ScmOp_eof_objectp(ScmObj obj)
@@ -307,7 +307,8 @@
 
 ScmObj ScmOp_char_readyp(ScmObj args, ScmObj env)
 {
-    /* TODO : implement this */
+    /* FIXME: implement this */
+    return SCM_FALSE;
 }
 
 /*===========================================================================