holiday-assoc ( timestamp singleton -- assoc )

Vocabulary

calendar.holidays

Inputs

timestamp	an object
singleton	an object

Outputs

assoc

an object

Definition

USING: assocs calendar.holidays.private combinators kernel ;

IN: calendar.holidays

: holiday-assoc ( timestamp singleton -- assoc )
    (holidays) swap '[
        [
            _ clone swap ( timestamp -- timestamp )
            execute-effect
        ] keep
    ] map>alist ;