mirror demo
parent
e5523b2835
commit
89c652afd6
@ -0,0 +1,18 @@
|
|||||||
|
#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 ...))
|
@ -0,0 +1,4 @@
|
|||||||
|
#lang mirror-demo
|
||||||
|
|
||||||
|
"hello world"
|
||||||
|
(+ 1 (* 2 (- 3)))
|
Loading…
Reference in New Issue