#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)