diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-20 02:27:36 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-20 02:27:36 +0200 |
| commit | ba9c00d2a247a301778b7f914dd26f637646b8eb (patch) | |
| tree | ab95074f2842b1f9b7835130e7760fa997908034 | |
| parent | Add parser for plaintext zoneinfo files. (diff) | |
| download | calp-ba9c00d2a247a301778b7f914dd26f637646b8eb.tar.gz calp-ba9c00d2a247a301778b7f914dd26f637646b8eb.tar.xz | |
map takes 2 arguments...
| -rw-r--r-- | module/datetime/zic.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm index e5ba8792..ca8e7e17 100644 --- a/module/datetime/zic.scm +++ b/module/datetime/zic.scm @@ -20,11 +20,12 @@ (define-public (read-zoneinfo . ports-or-filenames) (parsed-zic->zoneinfo - (concatenate (map (lambda (port-or-filename) - (if (port? port-or-filename) - (parse-zic-file port-or-filename) - (call-with-input-file port-or-filename parse-zic-file)))) - ports-or-filenames))) + (concatenate + (map (lambda (port-or-filename) + (if (port? port-or-filename) + (parse-zic-file port-or-filename) + (call-with-input-file port-or-filename parse-zic-file))) + ports-or-filenames)))) |