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

fix private word

db4
Doug Coleman 2008-09-02 12:06:11 -05:00
parent 1df3257a6b
commit 379bf45559
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/calendar/calendar.factor
View File

@ -278,12 +278,10 @@ GENERIC: time- ( time1 time2 -- time3 )
M: timestamp <=> ( ts1 ts2 -- n ) M: timestamp <=> ( ts1 ts2 -- n )
[ >gmt tuple-slots ] compare ; [ >gmt tuple-slots ] compare ;
<PRIVATE
: (time-) ( timestamp timestamp -- n ) : (time-) ( timestamp timestamp -- n )
[ >gmt ] bi@ [ >gmt ] bi@
[ [ >date< julian-day-number ] bi@ - 86400 * ] 2keep [ [ >date< julian-day-number ] bi@ - 86400 * ] 2keep
[ >time< >r >r 3600 * r> 60 * r> + + ] bi@ - + ; [ >time< >r >r 3600 * r> 60 * r> + + ] bi@ - + ;
PRIVATE>
M: timestamp time- M: timestamp time-
#! Exact calendar-time difference #! Exact calendar-time difference