calendar: Add a today? word

2019-12-25 11:29:28 -05:00 · 2019-12-25 11:29:28 -05:00 · de57b00d2f
parent c3c61e74d7
commit de57b00d2f
1 changed files with 3 additions and 0 deletions
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@ -405,6 +405,9 @@ M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
 : today ( -- timestamp )
    now midnight ; inline

+: today? ( timestamp -- ? )
+    now same-day? ; inline
+
 : tomorrow ( -- timestamp )
    1 days hence midnight ; inline