print-wc ( n name/f -- )

Vocabulary

tools.wc.private

Inputs

n	an object
name/f	an object

Outputs

None

Definition

USING: io kernel math.parser sequences ;

IN: tools.wc.private

: print-wc ( n name/f -- )
    [ number>string 8 32 pad-head write ] [ bl [ write ] when* ]
    bi* nl ;