Paste: literal-parse

USING: kernel
       lexer
       parser
       namespaces
       literal-syntax
       ;

IN: literal-parse

: parse-with-vocabs ( vocabs lines -- quot )
  [
    f in set
    swap set-use
    lexer-factory get call (parse-lines)
  ]
  with-scope ;

: literal-parse ( lines -- quot ) { "literal-syntax" } swap parse-with-vocabs ;