add evaluate
This commit is contained in:
parent
42d0dacb5b
commit
9a8b95a9f0
|
@ -10,6 +10,12 @@
|
||||||
|
|
||||||
;; todo: activate at-exp reader by default
|
;; todo: activate at-exp reader by default
|
||||||
|
|
||||||
|
(provide evaluate)
|
||||||
|
(define-macro (evaluate DATUM)
|
||||||
|
#'(begin
|
||||||
|
(define-namespace-anchor nsa)
|
||||||
|
(eval DATUM (namespace-anchor->namespace nsa))))
|
||||||
|
|
||||||
(module reader syntax/module-reader
|
(module reader syntax/module-reader
|
||||||
#:language 'br
|
#:language 'br
|
||||||
#:info br-get-info
|
#:info br-get-info
|
||||||
|
|
Loading…
Reference in New Issue
Block a user