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
        ]
    ] dip [ stream-write ] curry compose each drop ;