11 lines
178 B
Racket
11 lines
178 B
Racket
#lang racket/base
|
|
|
|
(define (:read ip) (:read-syntax #f ip))
|
|
|
|
(define (:read-syntax name ip)
|
|
eof)
|
|
|
|
(provide
|
|
(rename-out [:read read]
|
|
[:read-syntax read-syntax]))
|