parse-method-definition ( -- quot )

Vocabulary

generic.parser

Inputs

None

Outputs

quot

an object

Definition

USING: combinators effects.parser parser quotations sequences ;

IN: generic.parser

: parse-method-definition ( -- quot )
    scan-datum {
        {
            \ (
            [
                ")" parse-effect check-method-effect
                parse-definition
            ]
        }
        { \ ; [ [ ] ] }
        [ ?execute-parsing \ ; parse-until append >quotation ]
    } case ;