From c263834da9aa7c45050b015c11109e7f16653ea1 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Mon, 26 Mar 2018 21:59:58 +0200 Subject: job-specifier: Fix typo "implement" => "implementation" * src/mcron/job-specifier.scm (%find-best-next): Fix typo. --- src/mcron/job-specifier.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/mcron/job-specifier.scm') diff --git a/src/mcron/job-specifier.scm b/src/mcron/job-specifier.scm index d3d3a2a..cbfa2df 100644 --- a/src/mcron/job-specifier.scm +++ b/src/mcron/job-specifier.scm @@ -61,7 +61,8 @@ go into the list. For example, (range 1 6 2) returns '(1 3 5)." ;; element larger than the CURRENT value. If an example of the latter ;; cannot be found, +INF.0 will be returned. (define (exact-min a b) - ;; An implement of 'min' which preserves the exactness its arguments. + ;; A binary implementation of 'min' which preserves the exactness of its + ;; arguments. (if (< a b) a b)) (let loop ((smallest (inf)) (closest+ (inf)) (lst next-list)) -- cgit v1.2.3