continuations ;
IN: calendar.format.macros
-MACRO: formatted ( spec -- )
+MACRO: formatted ( spec -- quot )
[
{
{ [ dup word? ] [ 1quotation ] }
} cond
] map [ cleave ] curry ;
-MACRO: attempt-all-quots ( quots -- )
+MACRO: attempt-all-quots ( quots -- quot )
dup length 1 = [ first ] [
unclip swap
[ nip attempt-all-quots ] curry