             drop
         ] [
             [
-                "FROM: locals => [let :> ; FROM: sequences => nth ; FROM: kernel => nip over ; [let " %
+                "[let " %
                 [
                     over ebnf-var? [
                         " " % # " over nth :> " %

    [ parser>> (transform) ]
    [ code>> insert-escapes ]
    [ parser>> ] tri build-locals
    qualified-vocabs length
    [ string-lines parse-lines ] dip
    qualified-vocabs set-length ;

M: ebnf-action (transform) ( ast -- parser )
    ebnf-transform check-action-effect action ;

effects kernel make math.parser multiline namespaces parser peg
peg.parsers quotations sequences sequences.deep splitting
stack-checker strings strings.parser summary unicode.categories
vocabs.parser words ;
FROM: vocabs.parser => search ;
FROM: peg.search => replace ;
IN: peg.ebnf
