mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

Fixed bug: ~N mishandles small nanoseconds value

Browse source 
Fixes <http://bugs.gnu.org/26261>.
Reported by Zefram <zefram@fysh.org>.

* module/srfi/srfi-19.scm ("define directives"): N padding increased from 7 to 9

* test-suite/tests/srfi-19.test ("date->string"): New test.
This commit is contained in:
Andrew Moss 2017-03-27 11:58:29 -04:00 • committed by Andy Wingo
parent b11e2922c3
commit 1978085b22
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-19.scm
View file

@ -1063,7 +1063,7 @@
(newline port)))
(cons #\N (lambda (date pad-with port)
(display (padding (date-nanosecond date)
pad-with 7)
pad-with 9)
port)))
(cons #\p (lambda (date pad-with port)
(display (locale-am-string/pm (date-hour date)) port)))