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 ; : 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 -- ? )