?pay-interest ( account date -- )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

None

Definition

USING: kernel ;

IN: bank

: ?pay-interest ( account date -- )
    2dup interest-payment-day? [ pay-interest ] [ 2drop ] if ;