stream-tree-write ( object stream -- )

Vocabulary

peg.search

Inputs

object	an object
stream	an object

Outputs

None

Definition

USING: combinators io kernel math sequences strings ;

IN: peg.search

: stream-tree-write ( object stream -- )
    {
        { [ over number? ] [ stream-write1 ] }
        { [ over string? ] [ stream-write ] }
        {
            [ over sequence? ]
            [ [ stream-tree-write ] curry each ]
        }
        [ stream-write ]
    } cond ;