simplify

6 years ago · 1d8ff90769
parent 01ebdbba04
commit 1d8ff90769
1 changed files with 3 additions and 7 deletions
--- a/brag/codegen/expander.rkt
+++ b/brag/codegen/expander.rkt
@ -101,11 +101,7 @@
            ;; start-id has to be a value, not an expr, because make-rule-parser is a macro
            (define PARSE (procedure-rename (MAKE-RULE-PARSER START-ID) 'PARSE))
             
-            (define (PARSE-TO-DATUM x)
-              (let loop ([x (syntax->datum (PARSE x))])
-                (cond
-                  [(list? x) (map loop x)]
-                  [else x])))
+            (define (PARSE-TO-DATUM x) (syntax->datum (PARSE x)))

            (define PARSE-TREE PARSE-TO-DATUM))))]))