fix messup

diff --git a/basis/calendar/calendar-docs.factor b/basis/calendar/calendar-docs.factor
index 5ff3ef6cc123c442ba5b722cd7bcc1745561feb9..d687a8a9f401a277bfe06b5c95343b3e8c89b2c6 100644 (file)
--- a/basis/calendar/calendar-docs.factor
+++ b/basis/calendar/calendar-docs.factor
@@ -136,27 +136,22 @@ HELP: instant
 HELP: years
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ year years } related-words
 
 HELP: months
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ month months } related-words
 
 HELP: days
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ day days } related-words
 
 HELP: weeks
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ week weeks } related-words
 
 HELP: hours
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ hour hours } related-words
 
 HELP: minutes
 { $values { "x" number } { "duration" duration } }
@@ -166,12 +161,10 @@ HELP: minutes
 HELP: seconds
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ second seconds } related-words
 
 HELP: milliseconds
 { $values { "x" number } { "duration" duration } }
 { $description } ;
-{ millisecond milliseconds } related-words
 
 HELP: leap-year?
 { $values { "obj" object } { "?" "a boolean" } }

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index fd99464bd3f67e4aaf40e5b1a99fa0ea5084b693..b7e93e56f93838a915e7610157ea0e59f9b5eb2e 100755 (executable)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -125,14 +125,6 @@ MEMO: instant ( -- duration ) 0 0 0 0 0 0 <duration> ;
 : minutes ( x -- duration ) instant clone swap >>minute ;
 : seconds ( x -- duration ) instant clone swap >>second ;
 : milliseconds ( x -- duration ) 1000 / seconds ;
-ALIAS: year years
-ALIAS: month months
-ALIAS: day days
-ALIAS: week weeks
-ALIAS: hour hours
-ALIAS: minute minutes
-ALIAS: second seconds
-ALIAS: millisecond milliseconds
 
 GENERIC: leap-year? ( obj -- ? )