formatted ( spec -- quot )

Vocabulary

calendar.format

Inputs

spec

an object

Outputs

quot

an object

Definition

USING: combinators io kernel quotations sequences words ;

IN: calendar.format

MACRO: formatted ( spec -- quot )
    [
        {
            { [ dup word? ] [ 1quotation ] }
            { [ dup quotation? ] [ ] }
            [ [ nip write ] curry ]
        } cond
    ] map [ cleave ] curry ;