process-to-date ( account date -- account )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

account

an object

Definition

USING: accessors calendar kernel ;

IN: bank

: process-to-date ( account date -- account )
    over interest-last-paid>> 1 days time+
    [ [ dupd process-day ] ] 2dip swap each-day ;