11 lines
237 B
Racket
11 lines
237 B
Racket
|
#lang s-exp syntax/module-reader "language.rkt"
|
||
|
|
#:read my-read
|
||
|
|
#:read-syntax my-read-syntax
|
||
|
|
|
||
|
|
(require "parser.rkt")
|
||
|
|
|
||
|
|
(define (my-read-syntax src in)
|
||
|
|
(parse-expr src in))
|
||
|
|
|
||
|
|
(define (my-read in)
|
||
|
|
(syntax->datum (my-read-syntax #f in)))
|