daily-rate>> ( account date -- rate )

Vocabulary

bank

Inputs

account	an object
date	an object

Outputs

rate

an object

Definition

USING: accessors kernel ;

IN: bank

: daily-rate>> ( account date -- rate )
    [ interest-rate>> ] dip daily-rate ;