diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-24 12:49:00 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:37:06 +0200 |
| commit | 69e9709b33f05c167b17b7eb3455961e46dcee95 (patch) | |
| tree | c385a93514c39ca4fa4ff088b404924ad1235592 | |
| parent | a063a2277e16765b986db6c974650fdd7614bf1d (diff) | |
| download | cuirass-69e9709b33f05c167b17b7eb3455961e46dcee95.tar cuirass-69e9709b33f05c167b17b7eb3455961e46dcee95.tar.gz | |
evaluate: Use simple-format explicitely.
| -rw-r--r-- | bin/evaluate.in | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 6998767..2f38358 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -79,18 +79,17 @@ value." (λ (store . args) (display "error: trying to build things during evaluation!~%" stderr) - (format stderr "'build-things' arguments: ~S~%" args) + (simple-format stderr "'build-things' arguments: ~S~%" args) (exit 1))) ;; Call the entry point of FILE and print the resulting job sexp. (pretty-print (let* ((proc (module-ref %user-module 'hydra-jobs) ) (thunks (proc store (assq-ref spec #:arguments)))) - (map (λ (thunk) - (call-with-time-display thunk)) + (map (λ (thunk) (call-with-time-display thunk)) thunks)) stdout)))) ((command _ ...) - (format (current-error-port) "Usage: ~A FILE + (simple-format (current-error-port) "Usage: ~A FILE Evaluate the Hydra jobs defined in FILE.~%" command) (exit 1)))) |