printf-quot ( format-string -- format-quot n )


Vocabulary
formatting.private

Inputs
format-stringan object


Outputs
format-quotan object
nan object


Definition
USING: generalizations kernel math quotations sequences strings
;

IN: formatting.private

: printf-quot ( format-string -- format-quot n )
parse-printf [ [ callable? ] count ] keep [
dup string? [ 1quotation ] [ [ 1 - ] dip ] if over
[ ndip ] 2curry
] map nip [ compose-all ] [ length ] bi ; inline