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

base: Avoid 'call-with-current-continuation'.

Browse source 
'call-with-current-continuation' is overkill and not quite what we
want.  'let/ec' is supported in Guile 2.0, 2.2, and 3.0.

* src/mcron/base.scm (run-job-loop): Use 'let/ec' instead of
'call-with-current-continuation'.
This commit is contained in:
Ludovic Courtès 2020-02-23 18:49:53 +01:00 • committed by Dale Mellor
commit 5794ea5a5b
1 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mcron/base.scm
View file

@ -27,6 +27,7 @@
(define-module (mcron base) (define-module (mcron base)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 control)
#:use-module (mcron environment) #:use-module (mcron environment)
#:use-module (mcron utils) #:use-module (mcron utils)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
@ -224,8 +225,7 @@ next value."
'(() () ()) '(() () ())
(apply throw args))))))) (apply throw args)))))))
(call-with-current-continuation (let/ec break
(lambda (break)
(let loop () (let loop ()
(match (find-next-jobs #:schedule schedule) (match (find-next-jobs #:schedule schedule)
((next-time . next-jobs-lst) ((next-time . next-jobs-lst)
@ -245,4 +245,4 @@ next value."
(for-each run-job next-jobs-lst) (for-each run-job next-jobs-lst)
(child-cleanup) (child-cleanup)
(loop)))))))) (loop)))))))