beautiful-racket/beautiful-racket-demo/jsonic/reader.rkt

#lang br/quicklang
(require "tokenizer.rkt" "parser.rkt")
(define (read-syntax path port)
  (define parse-tree (parse path (tokenize port)))
  (define module-datum `(module jsonic-module br/demo/jsonic/expander
                          ,parse-tree))
  (datum->syntax #f module-datum))
(provide read-syntax)