interest-payment-day? ( account date -- ? )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: bank

: interest-payment-day? ( account date -- ? )
    day>> swap interest-payment-day>> = ;