diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 19:17:35 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 23:04:01 +0200 |
commit | aa44c16ce953c090b2eb3ce580c60fa8934a7720 (patch) | |
tree | 11710e34de01a2ac31e5acac9c8a62af3f09888a /module/datetime/app.scm | |
parent | Update server to use app. (diff) | |
download | calp-aa44c16ce953c090b2eb3ce580c60fa8934a7720.tar.gz calp-aa44c16ce953c090b2eb3ce580c60fa8934a7720.tar.xz |
Change call signature for [gs]etf.
Diffstat (limited to '')
-rw-r--r-- | module/datetime/app.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/module/datetime/app.scm b/module/datetime/app.scm index 989a0847..9797ee39 100644 --- a/module/datetime/app.scm +++ b/module/datetime/app.scm @@ -5,12 +5,12 @@ :use-module (datetime zic)) (define-method (init-app) - (setf app 'zoneinfo + (setf 'zoneinfo (let* ((pipe - (-> (@ (global) basedir) - dirname - (string-append "/tzget") - ((@ (ice-9 popen) open-input-pipe)))) + (-> (@ (global) basedir) + dirname + (string-append "/tzget") + ((@ (ice-9 popen) open-input-pipe)))) (path (read-line pipe)) (names (string-split (read-line pipe) #\space))) (read-zoneinfo |