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