PRIVATE>
-MACRO: printf ( format-string -- )
+MACRO: printf ( format-string -- quot )
printf-quot '[
@ output-stream get [ stream-write ] curry _ napply
] ;
PRIVATE>
-MACRO: strftime ( format-string -- )
+MACRO: strftime ( format-string -- quot )
parse-strftime [
dup string? [
'[ _ swap push-all ]