suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests for minor bug fixes in date.ss

Browse Source 
svn: r7309

original commit: c192fba30262b9cce40a2d36b05e384c70135fda
This commit is contained in:
John Clements 2007-09-11 05:03:03 +00:00
parent f8c7594976
commit f35a9d26c2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/date.ss
View File

@ -377,8 +377,9 @@
(cond
((or (null? reversed-digits)
(null? (cdr reversed-digits))
(null? (cdr (cdr reversed-digits))))
(list (apply string-append reversed-digits)))
(null? (cdr (cdr reversed-digits)))
(null? (cdr (cdr (cdr reversed-digits)))))
(list (apply string-append (reverse reversed-digits))))
(else (cons (apply string-append
(list " "
(caddr reversed-digits)