From 5f83aef90f0b5a3bef3baee48bc6f6cdf452155d Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 19 Oct 2017 23:22:14 +0200 Subject: base: Add 'display-schedule' procedure This procedure is a more generic and less coupled version of 'get-schedule' which has been kept for backward compatibility and deprecated. * src/mcron/base.scm (display-schedule): New procedure. (get-schedule): Move to ... * src/mcron/core.scm: ... here. * src/mcron/scripts/cron.scm (main): Use 'display-schedule'. * src/mcron/scripts/mcron.scm (main): Likewise. * doc/mcron.texi (The base module): Document it. --- src/mcron/scripts/mcron.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/mcron/scripts/mcron.scm') diff --git a/src/mcron/scripts/mcron.scm b/src/mcron/scripts/mcron.scm index 588734b..afb380f 100644 --- a/src/mcron/scripts/mcron.scm +++ b/src/mcron/scripts/mcron.scm @@ -83,7 +83,7 @@ $XDG_CONFIG_HOME is not defined uses ~/.config/cron instead)." (cond ((assq-ref opts 'schedule) ;display jobs schedule => (λ (count) - (display (get-schedule (max 1 count))) + (display-schedule (max 1 count)) (exit 0))) ((assq-ref opts 'daemon) ;run mcron as a daemon (case (primitive-fork) -- cgit v1.2.3