calendar: removing unused (month-name) word.
parent
fb2aab3545
commit
469f4314df
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue