vprintf ( seq format-string -- )

Vocabulary

formatting

Inputs

seq	an object
format-string	an object

Outputs

None

Definition

USING: combinators formatting.private io kernel namespaces
sequences strings ;

IN: formatting

: vprintf ( seq format-string -- )
    parse-printf output-stream get '[
        dup string?
        [ [ unclip-slice ] dip ( x -- y ) call-effect ] unless
        _ stream-write
    ] each drop ;