process-day ( account date -- )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

None

Definition

USING: kernel ;

IN: bank

: process-day ( account date -- )
    2dup accumulate-interest ?pay-interest ;