         qualified-vocabs last words>> keys "um" swap member?
     ] with-compilation-unit
 ] unit-test
->>
 
 ! check-local-name
 { "hello" } [

    [ locals>> [ name>> ] map ] [ keys ] bi*
] unit-test

<<
{
    "V{ 99 :> kkk kkk }"
} [
    [
        "locals" use-vocab
        { "99 :> kkk kkk ;" } <lexer> [
            H{ } clone [ \ ; parse-until ] with-lambda-scope
        ] with-lexer
    ] with-compilation-unit unparse
] unit-test
>>

USING: accessors assocs compiler.units kernel lexer
locals.backend locals.parser parser prettyprint sequences
tools.test vocabs.parser ;

! (::)
{
    "dobiedoo"
