read-yymmdd ( -- y m d )

Vocabulary

hashcash.private

Inputs

None

Outputs

y	an object
m	an object
d	an object

Definition

USING: accessors calendar calendar.parser math ;

IN: hashcash.private

: read-yymmdd ( -- y m d )
    read-00 now start-of-millennium year>> + read-00 read-00 ;