Revision: 7229
Author: deton.kih
Date: Thu Jul 21 05:20:09 2011
Log: * Merge r7228 from trunk.
http://code.google.com/p/uim/source/detail?r=7229
Modified:
/branches/1.7/scm/fileio.scm
=======================================
--- /branches/1.7/scm/fileio.scm Wed Jul 6 19:11:32 2011
+++ /branches/1.7/scm/fileio.scm Thu Jul 21 05:20:09 2011
@@ -165,7 +165,9 @@
(list->string (reverse rest)))
((or (eof-object? c) ;; disconnect?
(not c))
- c)
+ (if (null? rest)
+ c
+ (list->string (reverse rest))))
(else
(loop (file-read-char port) (cons c rest))))))
