calendar.format: simplify month.

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

diff --git a/basis/calendar/format/format.factor b/basis/calendar/format/format.factor
index 440c4aeed5c201a77ba638d0fb0026db03c6e948..56d249844a9622382702ab5e040fe771239e03e5 100644 (file)
--- a/basis/calendar/format/format.factor
+++ b/basis/calendar/format/format.factor
@@ -83,13 +83,9 @@ M: timestamp day.
 
 PRIVATE>
 
-GENERIC: month. ( obj -- )
-
-M: array month.
-    first2 [ month-header. ] [ days-header. days. ] 2bi ;
-
-M: timestamp month.
-    [ year>> ] [ month>> ] bi 2array month. ;
+: month. ( timestamp -- )
+    [ year>> ] [ month>> ] bi
+    [ month-header. ] [ days-header. days. ] 2bi ;
 
 GENERIC: year. ( obj -- )