nit

6 years ago · 954069276d
parent 3d6588fc47
commit 954069276d
1 changed files with 1 additions and 1 deletions
--- a/brag/brag/codegen/codegen.rkt
+++ b/brag/brag/codegen/codegen.rkt
@ -161,7 +161,7 @@
                                         (PARSE tokenizer))])
                         (string->symbol (format "~a-rule-parser" 'start-rule)))))]))
             
-             (define PARSE (procedure-rename (MAKE-RULE-PARSER start-id) 'parse))
+             (define PARSE (procedure-rename (MAKE-RULE-PARSER start-id) 'PARSE))
             
             (define (PARSE-TO-DATUM x)
               (let loop ([x (syntax->datum (PARSE x))])