Seems like I chose a less popular spelling.
: today ( -- timestamp ) now midnight ; inline
: tomorrow ( -- timestamp ) 1 days hence midnight ; inline
: yesterday ( -- timestamp ) 1 days ago midnight ; inline
-: overtomorrow ( -- timestamp ) 2 days hence midnight ; inline
+: overmorrow ( -- timestamp ) 2 days hence midnight ; inline
: ereyesterday ( -- timestamp ) 2 days ago midnight ; inline
: today? ( timestamp -- ? ) now same-day? ; inline
{ "short" { "index-or-length" "0.99" } }
{ "map-integers" { "map-integers-as" "0.99" } }
{ "deep-subseq?" { "deep-subseq-of?" "0.99" } }
+ { "overtomorrow" { "overmorrow" "0.99" } }
}
: compute-assoc-fixups ( continuation name assoc -- seq )