fix private word

2008-09-02 12:06:11 -05:00 · 2008-09-02 12:06:11 -05:00 · 379bf45559
parent 1df3257a6b
commit 379bf45559
1 changed files with 0 additions and 2 deletions
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@ -278,12 +278,10 @@ GENERIC: time- ( time1 time2 -- time3 )
 M: timestamp <=> ( ts1 ts2 -- n )
    [ >gmt tuple-slots ] compare ;

-<PRIVATE
 : (time-) ( timestamp timestamp -- n )
    [ >gmt ] bi@
    [ [ >date< julian-day-number ] bi@ - 86400 * ] 2keep
    [ >time< >r >r 3600 * r> 60 * r> + + ] bi@ - + ;
-PRIVATE>

 M: timestamp time-
    #! Exact calendar-time difference