parse-beginning ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors kernel sequences ;

IN: mime.multipart

: parse-beginning ( multipart -- multipart )
    "--" read-assert-sequence= dup mime-separator>>
    [ read-assert-sequence= ]
    [ separator-prefix prepend >>mime-separator ] bi ;