don't put chars in parse tree

brag/brag/codegen/codegen.rkt

@@ -167,7 +167,6 @@
                (let loop ([x (syntax->datum (PARSE x))])
                  (cond
                    [(list? x) (map loop x)]
-                   [(char? x) (string x)]
                    [else x])))
 
              (define PARSE-TREE PARSE-TO-DATUM)))))]))

brag/brag/codegen/runtime.rkt

@@ -76,11 +76,9 @@
         [(? symbol?)
          (lookup next-token next-token start end)]
         
-        [(? string?)
+        [(or (? string?) (? char?))
-         (lookup (string->symbol next-token) next-token start end)]
+         (define next-token-str (format "~a" next-token))
-        
+         (lookup (string->symbol next-token-str) next-token-str start end)]
-        [(? char?)
-         (lookup (string->symbol (string next-token)) next-token start end)]
         
         ;; Compatibility 
         [(? lex:token?)

brag/brag/test/test-01-equal.rkt

@@ -6,25 +6,25 @@
 (check-equal? (syntax->datum (parse ""))
               '(equal))
 (check-equal? (syntax->datum (parse "01"))
-              '(equal (zero (equal) #\0)
+              '(equal (zero (equal) "0")
-                      (one (equal) #\1)))
+                      (one (equal) "1")))
 (check-equal? (syntax->datum (parse "10"))
-              '(equal (one (equal) #\1)
+              '(equal (one (equal) "1")
-                      (zero (equal) #\0)))
+                      (zero (equal) "0")))
 (check-equal? (syntax->datum (parse "0011"))
-              '(equal (zero (equal) #\0)
+              '(equal (zero (equal) "0")
-                      (one (equal (zero (equal) #\0) 
+                      (one (equal (zero (equal) "0") 
-                                  (one (equal) #\1))
+                                  (one (equal) "1"))
-                           #\1)))
+                           "1")))
 (check-equal? (syntax->datum (parse "0110"))
-              '(equal (one (equal (zero (equal) #\0)
+              '(equal (one (equal (zero (equal) "0")
-                                  (one (equal) #\1))
+                                  (one (equal) "1"))
-                           #\1)
+                           "1")
-                      (zero (equal) #\0)))
+                      (zero (equal) "0")))
 
 (check-equal? (syntax->datum (parse "1100"))
-              '(equal (one (equal) #\1) 
+              '(equal (one (equal) "1") 
-                      (zero (equal (one (equal) #\1) 
+                      (zero (equal (one (equal) "1") 
-                                   (zero (equal) #\0))
+                                   (zero (equal) "0"))
-                            #\0)))
+                            "0")))
 

brag/brag/test/test-baby-json-hider.rkt

@@ -16,4 +16,12 @@
 (check-equal? 
  (syntax->datum
   (parse "[[[{}]],[],[[{}]]]"))
- '(json (array #\[ (json (array #\[ (json (array #\[ (json) #\])) #\])) #\, (json (array #\[ #\])) #\, (json (array #\[ (json (array #\[ (json) #\])) #\])) #\])))
+ '(json
+    (array
+     "["
+     (json (array "[" (json (array "[" (json) "]")) "]"))
+     ","
+     (json (array "[" "]"))
+     ","
+     (json (array "[" (json (array "[" (json) "]")) "]"))
+     "]")))

brag/brag/test/test-baby-json.rkt

@@ -18,7 +18,15 @@
 (check-equal? 
  (syntax->datum
   (parse "[[[{}]],[],[[{}]]]"))
- '(json (array #\[ (json (array #\[ (json (array #\[ (json (object #\{ #\})) #\])) #\])) #\, (json (array #\[ #\])) #\, (json (array #\[ (json (array #\[ (json (object #\{ #\})) #\])) #\])) #\])))
+ '(json
+   (array
+    "["
+    (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
+    ","
+    (json (array "[" "]"))
+    ","
+    (json (array "[" (json (array "[" (json (object "{" "}")) "]")) "]"))
+    "]")))