Revision: 6648
Author: ek.kato
Date: Sat Jul 31 08:23:28 2010
Log: * scm/process.scm
- (process-io)
- (process-with-daemon)
- Show message when proces-execute fails.
http://code.google.com/p/uim/source/detail?r=6648
Modified:
/trunk/scm/process.scm
=======================================
--- /trunk/scm/process.scm Thu May 6 09:38:31 2010
+++ /trunk/scm/process.scm Sat Jul 31 08:23:28 2010
@@ -71,7 +71,8 @@
(uim-notify-fatal (N_ "cannot duplicate stdout")))
(file-close pout-out)
- (process-execute file argv)
+ (if (= (process-execute file argv) -1)
+ (uim-notify-fatal (format (N_ "cannot execute ~a") file)))
(_exit 1)
)
(else ;; parent
@@ -88,7 +89,8 @@
#f))
((= 0 pid) ;; child
(daemon 0 1)
- (process-execute file argv)
+ (if (= (process-execute file argv) -1)
+ (uim-notify-fatal (format (N_ "cannot execute ~a") file)))
(_exit 1))
(else
pid)))))
