calendar: adding days-since.

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index 213cc6ac34fefb2be7fdf5e49b5baa7e364ed0fd..2356d1269929d2fc725fec13a3ec13cfd022b08d 100644 (file)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -464,6 +464,7 @@ M: duration time-
 
 : hence ( duration -- timestamp ) now swap time+ ;
 : ago ( duration -- timestamp ) now swap time- ;
+: days-since ( time -- n ) ago duration>days ;
 : days-until ( time -- n ) now time- duration>days ;
 
 GENERIC: days-in-year ( obj -- n )