steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar: Add a today? word

modern-harvey3
Doug Coleman 2019-12-25 11:29:28 -05:00
parent c3c61e74d7
commit de57b00d2f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/calendar/calendar.factor
View File

@ -405,6 +405,9 @@ M: timestamp days-in-year ( timestamp -- n ) year>> days-in-year ;
: today ( -- timestamp ) : today ( -- timestamp )
now midnight ; inline now midnight ; inline
: today? ( timestamp -- ? )
now same-day? ; inline
: tomorrow ( -- timestamp ) : tomorrow ( -- timestamp )
1 days hence midnight ; inline 1 days hence midnight ; inline