diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-30 20:53:36 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-30 20:53:36 +0200 |
commit | fe67dde08972f32e0d66a240a2a3610f22e740f7 (patch) | |
tree | 99698c4707ff84dfcadb792e3439acd0d4cb9f59 /modules/language/python/module/_posixsubprocess.scm | |
parent | d412ea125107cde07e8ee45781be4b964e927268 (diff) |
subprocess py file compiles
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)) |