write-object-seq ( object-seq -- )

Vocabulary

help.lint.coverage.private

Inputs

object-seq

an object

Outputs

None

Definition

USING: arrays io kernel sequences ;

IN: help.lint.coverage.private

: write-object-seq ( object-seq -- )
    [
        dup array? [
            dup ?first array?
            [ [ write-object* ] each ] [ write-object* ] if
        ] [ write ] if
    ] each ; inline