/mixin/lang/reader.rkt

 1#lang racket/base
 2
 3(define (my-read in)
 4  (syntax->datum (my-read-syntax #f in)))
 5
 6
 7(define (my-read-syntax src in)
 8  eof)
 9
10
11(provide (rename-out [my-read read]
12                     [my-read-syntax read-syntax]))