accumulate-interest ( account date -- )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: bank

: accumulate-interest ( account date -- )
    [ dupd daily-rate>> over balance>> * unpaid-interest+ ] keep
    >>interest-last-paid drop ;