Author: iratqq
Date: Mon Mar 2 21:49:15 2009
New Revision: 5886
Modified:
trunk/po/POTFILES.in
trunk/scm/process.scm
Log:
* scm/process.scm (process-io, process-with-daemon):
- i18n.
* po/POTFILES.in:
- Add scm/process.scm.
Modified: trunk/po/POTFILES.in
==============================================================================
--- trunk/po/POTFILES.in (original)
+++ trunk/po/POTFILES.in Mon Mar 2 21:49:15 2009
@@ -52,6 +52,7 @@
scm/prime-custom.scm
scm/prime-key-custom.scm
scm/prime.scm
+scm/process.scm
scm/pyload.scm
scm/scim.scm
scm/sj3-custom.scm
Modified: trunk/scm/process.scm
==============================================================================
--- trunk/scm/process.scm (original)
+++ trunk/scm/process.scm Mon Mar 2 21:49:15 2009
@@ -29,6 +29,7 @@
;;; SUCH DAMAGE.
;;;;
+(require "i18n.scm")
(require "fileio.scm")
(and (not (provided? "process"))
(module-load "process")
@@ -54,7 +55,7 @@
(let ((pid (process-fork)))
(cond ((< pid 0)
(begin
- (uim-notify-fatal "cannot fork")
+ (uim-notify-fatal (N_ "cannot fork"))
(file-close pin-in)
(file-close pin-out)
(file-close pout-in)
@@ -64,12 +65,12 @@
(setsid)
(file-close pin-out)
(if (< (duplicate-fileno pin-in 0) 0)
- (uim-notify-fatal "cannot duplicate stdin"))
+ (uim-notify-fatal (N_ "cannot duplicate stdin")))
(file-close pin-in)
(file-close pout-in)
(if (< (duplicate-fileno pout-out 1) 0)
- (uim-notify-fatal "cannot duplicate stdout"))
+ (uim-notify-fatal (N_ "cannot duplicate stdout")))
(file-close pout-out)
(process-execute file argv)
@@ -85,7 +86,7 @@
(let ((pid (process-fork)))
(cond ((< pid 0)
(begin
- (uim-notify-fatal "cannot fork")
+ (uim-notify-fatal (N_ "cannot fork"))
#f))
((= 0 pid) ;; child
(daemon 0 1)
