Revision: 5995
Author: iratqq
Date: Sun Aug 30 00:51:55 2009
Log: * scm/fileio.scm (file-ready?):
- Writeout more helpful error message.
http://code.google.com/p/uim/source/detail?r=5995
Modified:
/trunk/scm/fileio.scm
=======================================
--- /trunk/scm/fileio.scm Sat Aug 29 23:52:54 2009
+++ /trunk/scm/fileio.scm Sun Aug 30 00:51:55 2009
@@ -29,7 +29,8 @@
;;; SUCH DAMAGE.
;;;;
-(require-extension (srfi 9))
+(require-extension (srfi 9 48))
+
(and (not (provided? "fileio"))
(module-load "fileio")
(provide "fileio"))
@@ -135,7 +136,7 @@
fd-list))
(ret (file-poll fds timeout)))
(cond ((not ret)
- (uim-notify-fatal (N_ "poll error"))
+ (uim-notify-fatal (format "~a: '~a'" (N_ "poll error")
(posix-error-string)))
#f)
((null? ret)
(uim-notify-info (N_ "timeout"))
