add evaluate

2016-09-02 10:54:56 -07:00 · 2016-09-02 10:54:56 -07:00 · 9a8b95a9f0
commit 9a8b95a9f0
parent 42d0dacb5b
1 changed files with 6 additions and 0 deletions
--- a/beautiful-racket-lib/br/main.rkt
+++ b/beautiful-racket-lib/br/main.rkt
@ -10,6 +10,12 @@
         
 ;; 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
  #:language 'br
  #:info br-get-info