diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-21 01:26:19 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-23 20:55:42 +0100 |
| commit | 426f5d7b382b904313227f9bec631b8130573313 (patch) | |
| tree | 966c0d58aa995c4d83c8d0f6391f4357866e8a70 /src/mcron/job-specifier.scm | |
| parent | fe9592fd28f3ea180858fd1526ab8f67c54f1d09 (diff) | |
| download | mcron-426f5d7b382b904313227f9bec631b8130573313.tar.gz mcron-426f5d7b382b904313227f9bec631b8130573313.tar.bz2 mcron-426f5d7b382b904313227f9bec631b8130573313.zip | |
job-specifier: Use 'simple-format'
* src/mcron/job-specifier.scm (job): Use 'simple-format' instead of
'with-output-to-string'.
Diffstat (limited to 'src/mcron/job-specifier.scm')
| -rw-r--r-- | src/mcron/job-specifier.scm | 7 |
1 files changed, 3 insertions, 4 deletions
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))) |