         "WHERE" parse-bindings drop
         [ swap <def> suffix ] { } assoc>map concat
         \ ;FUNCTOR parse-until [ ] append-as
+        qualified-vocabs pop* ! unuse the bindings
     ] with-lambda-scope ;
 
 : (FUNCTOR:) ( -- word def effect )

interpolate io.streams.string kernel lexer locals.parser
locals.types macros make namespaces parser quotations sequences
vocabs.parser words words.symbol ;
IN: functors

! This is a hack

        [ nip scan-object 2array ]
    } cond ;

: parse-bindings ( end -- words assoc )
    '[
        building get use-words
        [ _ parse-binding dup ]
        [ first2 [ make-local ] dip 2array ]
        produce nip
    ] H{ } make ;

: parse-functor-body ( -- form )
