each-day ( ... quot: ( ... day -- ... ) start end -- ... )

Vocabulary

bank

Inputs

quot	a quotation with stack effect ( ... day -- ... )
start	an object
end	an object

Outputs

None

Definition

USING: calendar kernel math.order ;

IN: bank

: each-day ( ... quot: ( ... day -- ... ) start end -- ... )
    2dup before? [
        [ dup [ over [ swap call ] dip ] dip 1 days time+ ] dip
        each-day
    ] [ 3drop ] if ; inline recursive