From c192fba30262b9cce40a2d36b05e384c70135fda Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 11 Sep 2007 05:03:03 +0000 Subject: [PATCH] tests for minor bug fixes in date.ss svn: r7309 --- collects/mzlib/date.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/date.ss b/collects/mzlib/date.ss index 5b1954b4b8..88db41a277 100644 --- a/collects/mzlib/date.ss +++ b/collects/mzlib/date.ss @@ -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)