From 954069276d71f5705496fb55e51f0ec018a15284 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 21 May 2018 16:47:14 -0700 Subject: [PATCH] nit --- brag/brag/codegen/codegen.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/brag/brag/codegen/codegen.rkt b/brag/brag/codegen/codegen.rkt index 302ba99..493bf29 100755 --- 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))])