From 9a8b95a9f02cb9d2353bc05541bedfa17955c086 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 2 Sep 2016 10:54:56 -0700
Subject: [PATCH] add `evaluate`

---
 beautiful-racket-lib/br/main.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/beautiful-racket-lib/br/main.rkt b/beautiful-racket-lib/br/main.rkt
index 4343754..c6e9127 100644
--- 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