diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-14 11:16:49 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-14 11:16:49 +0100 |
| commit | ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce (patch) | |
| tree | 334a8d19a72a1febf1112f795d0fe05f6f50c683 /module/srfi/srfi-19/alt/util.scm | |
| parent | Add missing spaces in terminal output. (diff) | |
| download | calp-ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce.tar.gz calp-ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce.tar.xz | |
Export utc? for time objects.
Diffstat (limited to '')
| -rw-r--r-- | module/srfi/srfi-19/alt/util.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm index 8de92d93..38c1c146 100644 --- a/module/srfi/srfi-19/alt/util.scm +++ b/module/srfi/srfi-19/alt/util.scm @@ -108,6 +108,7 @@ ((#\H) (format #t "~2'0d" (hour time))) ((#\M) (format #t "~2'0d" (minute time))) ((#\S) (format #t "~2'0d" (second time))) + ((#\z) (when (utc? time) (display "Z"))) (else (unless allow-unknown? (error 'time->string "Invalid format token ~a" token)))) #f) |