From ceda396bfa3502a3a9a6c41f4e750065ef2bd2ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 14 Feb 2020 11:16:49 +0100 Subject: Export utc? for time objects. --- module/srfi/srfi-19/alt/util.scm | 1 + 1 file changed, 1 insertion(+) (limited to 'module/srfi/srfi-19/alt') 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) -- cgit v1.2.3