reader.ss
#lang scheme/base

(require "parser.ss")
(require (for-template scheme/base))

(define (read in)
  `(quote ,(parse-read in)))

(define (read-syntax source-name in)
  (let ([sexp (parse-read in)])
    (if (null? sexp) eof #`(quote #,sexp))))

(provide read read-syntax)