diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-24 01:09:14 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-12-28 22:19:04 +0100 |
| commit | c1d2c765ef0afb4ea7546675f7ddbffc02d0dc97 (patch) | |
| tree | 43d64160559edac6707c97f24c29f1831898feb2 | |
| parent | 4d518fd3f114a397fe6a3380513409293a721ab8 (diff) | |
| download | mcron-c1d2c765ef0afb4ea7546675f7ddbffc02d0dc97.tar.gz mcron-c1d2c765ef0afb4ea7546675f7ddbffc02d0dc97.tar.bz2 mcron-c1d2c765ef0afb4ea7546675f7ddbffc02d0dc97.zip | |
vixie-specification: Do not use 'and-let*'.
* src/mcron/vixie-specification.scm (parse-vixie-environment): Use
'and=>' instead of 'and-let*'
| -rw-r--r-- | src/mcron/vixie-specification.scm | 9 |
1 files changed, 3 insertions, 6 deletions
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 |