parse-functor-body ( -- form )

Vocabulary

functors.private

Inputs

None

Outputs

form

an object

Definition

USING: assocs functors functors.backend kernel locals.parser
locals.types parser sequences ;

IN: functors.private

: parse-functor-body ( -- form )
    functor-words [
        "WHERE" [
            [ swap <def> suffix ] { } assoc>map
            concat \ ;FUNCTOR> parse-until [ ] append-as
        ] with-bindings
    ] with-lambda-scope ;