diff options
Diffstat (limited to '')
-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) |