From c1d2c765ef0afb4ea7546675f7ddbffc02d0dc97 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Sun, 24 Jul 2016 01:09:14 +0200 Subject: vixie-specification: Do not use 'and-let*'. * src/mcron/vixie-specification.scm (parse-vixie-environment): Use 'and=>' instead of 'and-let*' --- src/mcron/vixie-specification.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/mcron/vixie-specification.scm') diff --git a/src/mcron/vixie-specification.scm b/src/mcron/vixie-specification.scm index e040fe0..cf2679a 100644 --- a/src/mcron/vixie-specification.scm +++ b/src/mcron/vixie-specification.scm @@ -35,7 +35,6 @@ #:use-module (mcron redirect) #:use-module (mcron vixie-time) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-2) #:export (parse-user-vixie-line parse-system-vixie-line read-vixie-port @@ -109,11 +108,9 @@ (if match (append-environment-mods (match:substring match 1) (match:substring match 2)) - (and-let* ((match (regexp-exec parse-vixie-environment-regexp4 string))) - (append-environment-mods (match:substring match 1) #f))))) - - - + (and=> (regexp-exec parse-vixie-environment-regexp4 string) + (λ (match) + (append-environment-mods (match:substring match 1) #f)))))) ;; The next procedure reads an entire Vixie-style file. For each line in the ;; file there are three possibilities (after continuation lines have been -- cgit v1.2.3