HOLIDAY-NAME:

Vocabulary

calendar.holidays

Inputs

parsed

an object

Outputs

parsed

an object

Definition

USING: hashtables kernel parser words ;

IN: calendar.holidays

SYNTAX: HOLIDAY-NAME:
    scan-word "holiday" scan-word scan-object swap
    '[ _ _ rot ?set-at ] change-word-prop ;