diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 22:32:16 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 22:32:16 +0300 |
| commit | d4906ee0d11cec92513c56ed924072757a403f6d (patch) | |
| tree | ec9cf2d6262f8c78d2d6ce4113607e627c9b5630 /modules/ssh | |
| parent | dist.scm (warning): Rename to 'format-warning' (diff) | |
| download | guile-ssh-d4906ee0d11cec92513c56ed924072757a403f6d.tar.gz | |
dist.scm (format-error): New procedure
* modules/ssh/dist.scm (format-error): New procedure.
(execute-job): Use it.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/dist.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/modules/ssh/dist.scm b/modules/ssh/dist.scm index af552a4..cf54d9e 100644 --- a/modules/ssh/dist.scm +++ b/modules/ssh/dist.scm @@ -63,6 +63,9 @@ (define (format-warning fmt . args) (apply format (current-error-port) (string-append "WARNING: " fmt) args)) +(define (format-error fmt . args) + (apply format (current-error-port) (string-append "ERROR: " fmt) args)) + (define (execute-job nodes job) "Execute a JOB, handle errors." @@ -72,9 +75,7 @@ (lambda () (hand-out-job job)) (lambda args - (format (current-error-port) - "ERROR: In ~a:~%~a:~%~a~%" - job (cadr args) (caddr args)) + (format-error "In ~a:~%~a:~%~a~%" job (cadr args) (caddr args)) (error "Could not execute a job" job)))) (lambda args (format-warning "Could not execute a job ~a~%" job) |