calendar: removing unused (month-name) word.

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index 7e9512d04694bec6443b2e1a25ae6092328131a9..0742b429f6abf3934488163636fd37c74c24be5e 100644 (file)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -64,12 +64,6 @@ CONSTANT: month-names
         "July" "August" "September" "October" "November" "December"
     }
 
-<PRIVATE
-
-: (month-name) ( n -- string ) 1 - month-names nth ;
-
-PRIVATE>
-
 GENERIC: month-name ( obj -- string )
 
 M: integer month-name check-month 1 - month-names nth ;