write-spaces ( -- )

Vocabulary

json.prettyprint.private

Inputs

None

Outputs

None

Definition

USING: io kernel math namespaces strings ;

IN: json.prettyprint.private

: write-spaces ( -- )
    indent-level get 0 >
    [ indent-level get nspaces * 32 <string> write ] when ;