From aa68ea0ce1f9cd6591a33447d38dc4400fa5f3e8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Aug 2008 17:27:28 -0500
Subject: [PATCH] fix messup

---
 basis/calendar/calendar-docs.factor | 7 -------
 basis/calendar/calendar.factor      | 8 --------
 2 files changed, 15 deletions(-)

diff --git a/basis/calendar/calendar-docs.factor b/basis/calendar/calendar-docs.factor
index 5ff3ef6cc1..d687a8a9f4 100644
--- 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 fd99464bd3..b7e93e56f9 100755
--- 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 -- ? )