diff options
Diffstat (limited to 'modules/language/python/module/_posixsubprocess.scm')
-rw-r--r-- | modules/language/python/module/_posixsubprocess.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/modules/language/python/module/_posixsubprocess.scm b/modules/language/python/module/_posixsubprocess.scm index ce2bdc9..b625a8a 100644 --- a/modules/language/python/module/_posixsubprocess.scm +++ b/modules/language/python/module/_posixsubprocess.scm @@ -2,10 +2,10 @@ #:use-module (language python for) #:use-module (language python try) #:use-module (language python module python) - #:use-module (language python module bool) + #:use-module (language python bool) #:use-module (language python module os) #:use-module (language python module errno) - #:use-module (language python module list) + #:use-module (language python list) #:use-module (language python exceptions) #:export (fork_exec)) @@ -68,7 +68,7 @@ (let ((argv (to-list argv)) (envp (if (bool envp) (to-list envp) envp))) - (for ((e : exec_array)) ((e #f)) + (for ((e : exec_array)) ((ep #f)) (try (lambda () (if (bool envp) @@ -81,11 +81,11 @@ (set! execmsg (+ execmsg + (format #f " exec error: ~a~%" x)))))) (let ((er (errno))) - (if (and (not (= er ENOENT)) (not (= er ENOTDIR)) (not e)) + (if (and (not (= er ENOENT)) (not (= er ENOTDIR)) (not ep)) er - e)) + ep)) #:final - (if e (set_errno e) (set_errno 0)))) + (if ep (set_errno ep) (set_errno 0)))) (if errwrite (write errpipe_write errwrite)) |