From 426f5d7b382b904313227f9bec631b8130573313 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Wed, 21 Mar 2018 01:26:19 +0100 Subject: job-specifier: Use 'simple-format' * src/mcron/job-specifier.scm (job): Use 'simple-format' instead of 'with-output-to-string'. --- src/mcron/job-specifier.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/mcron') diff --git a/src/mcron/job-specifier.scm b/src/mcron/job-specifier.scm index 401e4d0..d5bf590 100644 --- a/src/mcron/job-specifier.scm +++ b/src/mcron/job-specifier.scm @@ -237,11 +237,10 @@ go into the list. For example, (range 1 6 2) returns '(1 3 5)." "job: invalid first argument (next-time-function; " "should be function, string or list)")))) (displayable - (cond (displayable displayable) + (cond (displayable displayable) ((procedure? action) "Lambda function") - ((string? action) action) - ((list? action) (with-output-to-string - (lambda () (display action)))))) + ((string? action) action) + ((list? action) (simple-format #f "~A" action)))) (user* (if (or (string? user) (integer? user)) (getpw user) user))) -- cgit v1.2.3