steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix messup

db4
Doug Coleman 2008-08-31 17:27:28 -05:00
parent 6474ed69a7
commit aa68ea0ce1
2 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/calendar/calendar-docs.factor
View File

@ -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" } }

8
basis/calendar/calendar.factor
View File

@ -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 -- ? )