calendar: Add more predicates.

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index 92c7186965c17e53fa3912ffa6a0aefd11748eac..01811b7c97e9f2884d4e4c50bf913f53997b5ae2 100644 (file)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -472,10 +472,14 @@ M: timestamp days-in-year year>> days-in-year ;
 
 : today ( -- timestamp ) now midnight ; inline
 : tomorrow ( -- timestamp ) 1 days hence midnight ; inline
-: overtomorrow ( -- timestamp ) 2 days hence midnight ; inline
 : yesterday ( -- timestamp ) 1 days ago midnight ; inline
+: overtomorrow ( -- timestamp ) 2 days hence midnight ; inline
 : ereyesterday ( -- timestamp ) 2 days ago midnight ; inline
 
+: today? ( timestamp -- ? ) now same-day? ; inline
+: tomorrow? ( timestamp -- ? ) 1 days hence same-day? ; inline
+: yesterday? ( timestamp -- ? ) 1 days ago same-day? ; inline
+
 ALIAS: start-of-day midnight
 
 : end-of-day ( timestamp -- timestamp )