calendar: rename zeller-congruence to (day-of-week).

[factor.git] / basis / calendar / format / format.factor

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 56d249844a9622382702ab5e040fe771239e03e5..38e0a202b25c1f1fa4024866423a205b6ee6cab2 100644 (file)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -76,7 +76,7 @@ M: timestamp day.
     day-abbreviations2 " " join print ;
 
 : days. ( year month -- )
-    [ 1 zeller-congruence dup [ "   " write ] times ]
+    [ 1 (day-of-week) dup [ "   " write ] times ]
     [ (days-in-month) ] 2bi [1,b] [
         [ day. ] [ + 7 mod zero? [ nl ] [ bl ] if ] bi
     ] with each nl ;