diff options
| -rw-r--r-- | src/cron.in | 1 | ||||
| -rw-r--r-- | src/mcron/scripts/cron.scm | 16 |
2 files changed, 8 insertions, 9 deletions
diff --git a/src/cron.in b/src/cron.in index fc4725e..b260a5e 100644 --- a/src/cron.in +++ b/src/cron.in @@ -27,6 +27,7 @@ (set! %load-compiled-path (cons "%modbuilddir%" %load-compiled-path))) (use-modules (mcron scripts cron) + (mcron utils) (ice-9 command-line-processor)) (process-command-line (command-line) diff --git a/src/mcron/scripts/cron.scm b/src/mcron/scripts/cron.scm index 0a3b8b2..2e36d87 100644 --- a/src/mcron/scripts/cron.scm +++ b/src/mcron/scripts/cron.scm @@ -153,12 +153,10 @@ option.\n") (with-output-to-file config-pid-file (λ () (display (getpid)) (newline))) - (parameterize ((%log-format (option-ref opts 'log-format (%log-format))) - (%date-format (option-ref opts 'date-format (%date-format)))) - ;; Forever execute the 'run-job-loop', and when it drops out (can - ;; only be because a message has come in on the socket) we - ;; process the socket request before restarting the loop again. - (let ((fdes-list (cron-file-descriptors))) - (while #t - (run-job-loop fdes-list) - (unless (null? fdes-list) (process-update-request fdes-list)))))) + ;; Forever execute the 'run-job-loop', and when it drops out (can + ;; only be because a message has come in on the socket) we + ;; process the socket request before restarting the loop again. + (let ((fdes-list (cron-file-descriptors))) + (while #t + (run-job-loop fdes-list) + (unless (null? fdes-list) (process-update-request fdes-list))))) |