17 lines
412 B
Racket
17 lines
412 B
Racket
#lang racket
|
|
(require syntax/strip-context)
|
|
|
|
(provide (rename-out [literal-read read]
|
|
[literal-read-syntax read-syntax]))
|
|
|
|
(define (literal-read in)
|
|
(syntax->datum
|
|
(literal-read-syntax #f in)))
|
|
|
|
(define (literal-read-syntax src in)
|
|
(with-syntax ([str (port->string in)])
|
|
(strip-context
|
|
#'(module anything racket
|
|
(provide data)
|
|
(define data (quote str))))))
|