20 lines
493 B
Factor
20 lines
493 B
Factor
|
USING: macros kernel words quotations io sequences combinators
|
||
|
|
continuations ;
|
||
|
|
IN: calendar.format.macros
|
||
|
|
|
||
|
|
MACRO: formatted ( spec -- )
|
||
|
|
[
|
||
|
|
{
|
||
|
|
{ [ dup word? ] [ 1quotation ] }
|
||
|
|
{ [ dup quotation? ] [ ] }
|
||
|
|
[ [ nip write ] curry [ ] like ]
|
||
|
|
} cond
|
||
|
|
] map [ cleave ] curry ;
|
||
|
|
|
||
|
|
MACRO: attempt-all-quots ( quots -- )
|
||
|
|
dup length 1 = [ first ] [
|
||
|
|
unclip swap
|
||
|
|
[ nip attempt-all-quots ] curry
|
||
|
|
[ recover ] 2curry
|
||
|
|
] if ;
|