From 69e9709b33f05c167b17b7eb3455961e46dcee95 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sun, 24 Jul 2016 12:49:00 +0200 Subject: [PATCH] evaluate: Use simple-format explicitely. --- bin/evaluate.in | 7 +++---- 1 file 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))))