You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
beautiful-racket/beautiful-racket-demo/mirror-demo/main.rkt

18 lines
491 B
Racket

5 years ago
#lang br/quicklang
(module reader br
(provide (rename-out [rs read-syntax]))
(define (rs src ip)
(define toks (for/list ([tok (in-port (λ (p) (read-syntax src ip)) ip)])
tok))
(strip-context
(with-syntax ([(PT ...) toks])
#'(module _ mirror-demo
PT ...)))))
(provide (except-out (all-from-out br/quicklang) #%module-begin)
(rename-out [mb #%module-begin]))
(define-macro (mb PT ...)
#'(#%module-begin
PT ...))