/mixin/lang/reader.rkt

http://github.com/dyoo/mixin-lang · Racket · 12 lines · 7 code · 5 blank · 0 comment · 0 complexity · cd3b57811f780ad519a6c34246e04155 MD5 · raw file 

    

  1. #lang racket/base
    2. 

  2. 

  3. (define (my-read in)
    4. 

  4.   (syntax->datum (my-read-syntax #f in)))
    5. 

  5. 

  6. 

  7. (define (my-read-syntax src in)
    8. 

  8.   eof)
    9. 

  9. 

  10. 

  11. (provide (rename-out [my-read read]
    12. 

  12.                      [my-read-syntax read-syntax]))
    13.