From de57b00d2fccae3f8644c8a11c342120b484b414 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 25 Dec 2019 11:29:28 -0500
Subject: [PATCH] calendar: Add a today? word

---
 basis/calendar/calendar.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index af37ebf492..f4d2f3ae0e 100644
--- 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