write-ascii ( from to bytes stream -- )

Vocabulary

tools.hexdump.private

Inputs

from	an object
to	an object
bytes	an object
stream	an object

Outputs

None

Definition

USING: ascii io kernel ;

IN: tools.hexdump.private

: write-ascii ( from to bytes stream -- )
    dup stream-bl [ [ [ printable? ] keep 46 ? ] ] dip
    [ stream-write1 ] curry compose each-byte ; inline