pay-interest ( account date -- )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: bank

: pay-interest ( account date -- )
    over unpaid-interest>> "Interest Credit" <transaction>
    >>transaction 0 >>unpaid-interest drop ;