* bug#56632: [PATCH] srfi-19: fix 12AM in ~I and ~l
@ 2022-07-18 4:04 Nathan Borghese via Bug reports for GUILE, GNU's Ubiquitous Extension Language
0 siblings, 0 replies; only message in thread
From: Nathan Borghese via Bug reports for GUILE, GNU's Ubiquitous Extension Language @ 2022-07-18 4:04 UTC (permalink / raw)
To: 56632
[-- Attachment #1: Type: text/plain, Size: 26 bytes --]
Fix 12AM showing up as 0.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: patch --]
[-- Type: text/x-patch, Size: 1934 bytes --]
From e9e084a8047ca9d189d8d751173196d906a1758f Mon Sep 17 00:00:00 2001
From: Nathan Borghese <nathan@nborghese.com>
Date: Mon, 18 Jul 2022 00:01:08 -0400
Subject: [PATCH] srfi-19: fix ~I and ~l
* module/srfi/srfi-19.scm (directives): fix 12AM in ~I and ~l
---
module/srfi/srfi-19.scm | 17 ++++++-----------
1 file changed, 6 insertions(+), 11 deletions(-)
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 948a34eef..c14672e9e 100644
--- a/module/srfi/srfi-19.scm
+++ b/module/srfi/srfi-19.scm
@@ -983,13 +983,9 @@
port)))
(cons #\I (lambda (date pad-with port)
(let ((hr (date-hour date)))
- (if (> hr 12)
- (display (padding (- hr 12)
- pad-with 2)
- port)
- (display (padding hr
- pad-with 2)
- port)))))
+ (display (padding (1+ (modulo (+ 11 (date-hour date)) 12))
+ pad-with 2)
+ port))))
(cons #\j (lambda (date pad-with port)
(display (padding (date-year-day date)
pad-with 3)
@@ -999,10 +995,9 @@
#\Space 2)
port)))
(cons #\l (lambda (date pad-with port)
- (let ((hr (if (> (date-hour date) 12)
- (- (date-hour date) 12) (date-hour date))))
- (display (padding hr #\Space 2)
- port))))
+ (display (padding (1+ (modulo (+ 11 (date-hour date)) 12))
+ #\Space 2)
+ port)))
(cons #\m (lambda (date pad-with port)
(display (padding (date-month date)
pad-with 2)
--
2.36.1
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2022-07-18 4:04 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-07-18 4:04 bug#56632: [PATCH] srfi-19: fix 12AM in ~I and ~l Nathan Borghese via Bug reports for GUILE, GNU's Ubiquitous Extension Language
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).