For

original commit: 6b8dcc7c82a9fcd77b744c71fe026176f00e2ec2
2003-06-01 15:21:06 +00:00 · 2003-06-01 15:21:06 +00:00 · 0e290d0104
commit 0e290d0104
parent b29393b840
1 changed files with 16 additions and 1 deletions
--- a/collects/mzlib/date.ss
+++ b/collects/mzlib/date.ss
@ -129,7 +129,22 @@
 		 (values (list day "-" num-month "-" year)
 			 (list " " hour12 ":" minute ":" second am-pm))]
 		[(german) 
-		 (values (list day ". " month " " year)
+		 (values (list day ". " 
+                                (case (date-month date)
+                                  [(1) "Januar"]
+                                  [(2) "Februar"]
+                                  [(3) "März"]
+                                  [(4) "April"]
+                                  [(5) "Mai"]
+                                  [(6) "Juni"]
+                                  [(7) "Juli"]
+                                  [(8) "August"]
+                                  [(9) "September"]
+                                  [(10) "Oktober"]
+                                  [(11) "November"]
+                                  [(12) "Dezember"]
+                                  [else ""])
+                                " " year)
 			 (list ", " hour24 "." minute))]
 		[(irish) 
 		 (values (list week-day ", " day day-th " " month " " year)