diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 23:20:28 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 23:20:28 +0100 |
| commit | a72f3bea7bb3973f09b4095babe0fc4402357f7e (patch) | |
| tree | dc2ec78bedb059f03ad16f5999d4189bb2ca8905 /module/srfi/srfi-19/alt/util.scm | |
| parent | Minor cleanup. (diff) | |
| download | calp-a72f3bea7bb3973f09b4095babe0fc4402357f7e.tar.gz calp-a72f3bea7bb3973f09b4095babe0fc4402357f7e.tar.xz | |
Get-time now always returns localtime.
Diffstat (limited to '')
| -rw-r--r-- | module/srfi/srfi-19/alt/util.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm index 38c1c146..3957190f 100644 --- a/module/srfi/srfi-19/alt/util.scm +++ b/module/srfi/srfi-19/alt/util.scm @@ -108,7 +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"))) + ;; ((#\z) (when (utc? time) (display "Z"))) (else (unless allow-unknown? (error 'time->string "Invalid format token ~a" token)))) #f) |