dmbcs/mcron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

job-specifier: Remove dependency on SRFI-26.

Browse source 
* src/mcron/job-specifier.scm (range): Use plain lambda instead of 'cut' and
'cute'.
This commit is contained in:
Mathieu Lirzin 2017-01-14 20:00:38 +01:00
commit 10df45c659
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mcron/job-specifier.scm
View file

@ -1,6 +1,6 @@
;;;; job-specifier.scm -- public interface for defining jobs ;;;; job-specifier.scm -- public interface for defining jobs
;;; Copyright © 2003 Dale Mellor <dale_mellor@users.sourceforge.net> ;;; Copyright © 2003 Dale Mellor <dale_mellor@users.sourceforge.net>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
;;; ;;;
;;; This file is part of GNU Mcron. ;;; This file is part of GNU Mcron.
;;; ;;;
@ -32,7 +32,6 @@
#:use-module (mcron environment) #:use-module (mcron environment)
#:use-module (mcron vixie-time) #:use-module (mcron vixie-time)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:re-export (append-environment-mods) #:re-export (append-environment-mods)
#:export (range #:export (range
next-year-from next-year next-year-from next-year
@ -49,7 +48,11 @@
"Produces a list of values from START up to (but not including) END. An "Produces a list of values from START up to (but not including) END. An
optional STEP may be supplied, and (if positive) only every step'th value will optional STEP may be supplied, and (if positive) only every step'th value will
go into the list. For example, (range 1 6 2) returns '(1 3 5)." go into the list. For example, (range 1 6 2) returns '(1 3 5)."
(unfold (cut >= <> end) identity (cute + <> (max step 1)) start)) (let ((step* (max step 1)))
(unfold (λ (i) (>= i end)) ;predicate
identity ;value
(λ (i) (+ step* i)) ;next seed
start))) ;seed
(define (%find-best-next current next-list) (define (%find-best-next current next-list)
;; Takes a value and a list of possible next values. It returns a pair ;; Takes a value and a list of possible next values. It returns a pair