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 | |
| 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 'module/srfi')
| -rw-r--r-- | module/srfi/srfi-19/alt.scm | 6 | ||||
| -rw-r--r-- | module/srfi/srfi-19/alt/util.scm | 1 |
2 files changed, 4 insertions, 3 deletions
diff --git a/module/srfi/srfi-19/alt.scm b/module/srfi/srfi-19/alt.scm index e1245a82..8443336b 100644 --- a/module/srfi/srfi-19/alt.scm +++ b/module/srfi/srfi-19/alt.scm @@ -1,6 +1,6 @@ (define-module (srfi srfi-19 alt) :export (date? year month day - hour minute second + hour minute second utc? time? datetime? ) @@ -56,7 +56,7 @@ (make-time hour minute second utc) time? (hour hour) (minute minute) (second second) - (utc utc) ; bool + (utc utc?) ; bool ) (set-record-type-printer! @@ -69,7 +69,7 @@ (hour r) (minute r) (second r)) (format p "~2'0d:~2'0d:~2'0d~a" (hour r) (minute r) (second r) - (if (utc r) "Z" ""))))) + (if (utc? r) "Z" ""))))) (define*-public (time key: (hour 0) (minute 0) (second 0) (utc #f)) (make-time hour minute second utc)) 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) |