($values.) ( array -- )

Vocabulary

tools.scaffold.private

Inputs

array

an object

Outputs

None

Definition

USING: arrays io kernel prettyprint sequences ;

IN: tools.scaffold.private

: ($values.) ( array -- )
    [
        "    " write
        [ bl ] [
            "{ " write dup array? [ first ] when dup lookup-type 
            [
                [ unparse write bl ]
                [ [ pprint ] [ add-using ] bi ] bi*
            ] [
                drop unparse write bl object pprint
                object add-using
            ] if " }" write
        ] interleave
    ] unless-empty ;