unpaid-interest+ ( account amount -- account )

Vocabulary

bank

Inputs

account	an object
amount	an object

Outputs

account

an object

Definition

USING: accessors kernel math ;

IN: bank

: unpaid-interest+ ( account amount -- account )
    over unpaid-interest>> + >>unpaid-interest ;