[uim commit] r5749 - trunk/uim

[codesite-noreply]

Author: iratqq
Date: Sun Jan 18 19:36:48 2009
New Revision: 5749

Modified:
   trunk/uim/uim-posix.c

Log:
* uim/uim-posix.c (c_file_write):
  Oops, forgotten cdr-down.


Modified: trunk/uim/uim-posix.c
==============================================================================
--- trunk/uim/uim-posix.c       (original)
+++ trunk/uim/uim-posix.c       Sun Jan 18 19:36:48 2009
@@ -475,13 +475,13 @@
   int nbytes = uim_scm_length(buf_);
   uim_lisp ret_;
   char *buf;
-  int i;
   char *p;

   buf = p = uim_malloc(nbytes);
-  for (i = 0; i < nbytes; i++) {
+  while (!NULLP(buf_)) {
     *p = (char)C_INT(CAR(buf_));
     p++;
+    buf_ = CDR(buf_);
   }
   ret_ = MAKE_INT((int)write(C_INT(d_), buf, nbytes));
   free(buf);