touchups

beautiful-racket/br/demo/jsonic-2/expander.rkt

@@ -1,5 +1,6 @@
 #lang br/quicklang
 (require json)
+
 (define-macro (js-module-begin PARSE-TREE)
   #'(#%module-begin
      (define result-string PARSE-TREE)

beautiful-racket/br/demo/jsonic-2/parser-test.rkt

@@ -1,8 +1,6 @@
 #lang br
-(require br/demo/jsonic-2/parser
+(require "parser.rkt" "tokenizer.rkt"
-         br/demo/jsonic-2/tokenizer
+         brag/support rackunit)
-         brag/support
-         rackunit)
 
 (check-equal?
  (parse-tree (apply-tokenizer tokenize "// line commment\n"))

beautiful-racket/br/demo/jsonic-2/parser.rkt

@@ -1,4 +1,4 @@
 #lang brag
-jsonic-program: (s-exp | json-char)*
+jsonic-program: (json-char | s-exp)*
-s-exp: SEXP-TOK
 json-char: CHAR-TOK
+s-exp: SEXP-TOK

beautiful-racket/br/demo/jsonic/parser.rkt

@@ -1,4 +1,4 @@
 #lang brag
-jsonic-program: (s-exp | json-char)*
+jsonic-program: (json-char | s-exp)*
-s-exp: SEXP-TOK
 json-char: CHAR-TOK
+s-exp: SEXP-TOK