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 ]
    curry [ keep ] curry { } map>assoc ;