     over day-of-week - ; inline
 
 : day-this-week ( timestamp n -- timestamp )
-    day-offset days (time+) drop ;
+    day-offset days (time+) ;
 
 : closest-day ( timestamp n -- timestamp )
     { 0 1 2 3 -3 -2 -1 } pick day-of-week 7 swap -
-    <rotated> nth days (time+) drop ;
+    <rotated> nth days (time+) ;
 
 :: nth-day-this-month ( timestamp n day -- timestamp )
     timestamp clone
     timestamp start-of-month day day-this-week
     [ [ month>> ] same? ] keep swap
-    [ 1 weeks (time+) drop ] unless
-    n [ weeks (time+) drop ] unless-zero ;
+    [ 1 weeks (time+) ] unless
+    n [ weeks (time+) ] unless-zero ;
 
 PRIVATE>
 

: same-or-next-business-day ( timestamp -- timestamp )
    dup day-of-week {
        { 0 [ monday ] }
        { 6 [ 2 days (time+) drop ] }
        [ drop ]
    } case ;

: same-or-previous-business-day ( timestamp -- timestamp )
    dup day-of-week {
        { 0 [ -2 days (time+) drop ] }
        { 6 [ friday ] }
        [ drop ]
    } case ;

ALIAS: last-day-of-week saturday

: day< ( timestamp quot -- timestamp )
    over clone [ call dup ] dip after=? [ -7 days (time+) ] when ; inline
: day<= ( timestamp quot -- timestamp )
    over clone [ call dup ] dip after? [ -7 days (time+) ] when ; inline
: day> ( timestamp quot -- timestamp )
    over clone [ call dup ] dip before=? [ 7 days (time+) ] when ; inline
: day>= ( timestamp quot -- timestamp )
    over clone [ call dup ] dip before? [ 7 days (time+) ] when ; inline

: sunday< ( timestamp -- timestamp ) [ sunday ] day< ;
: monday< ( timestamp -- timestamp ) [ monday ] day< ;
