make better procedure name

brag/brag/codegen/codegen.rkt

@@ -144,13 +144,15 @@
                                                       (end EOF)
                                                       (error THE-ERROR-HANDLER)
                                                       generated-grammar)])
+                        (procedure-rename
                          (case-lambda [(tokenizer)
                                        (define next-token
                                          (make-permissive-tokenizer tokenizer all-tokens-hash/mutable))
                                        (THE-GRAMMAR next-token)]
                                       [(source tokenizer)
                                        (parameterize ([current-source source])
-                                        (parse tokenizer))])))]))
+                                         (parse tokenizer))])
+                         (string->symbol (format "~a-rule-parser" 'start-rule)))))]))
              
              (define parse (make-rule-parser start-id))
              (provide parse-to-datum parse-tree)