sandboxed evaluation

anna.scm

@@ -5,6 +5,7 @@
              (ice-9 textual-ports)
              (ice-9 format)
              (ice-9 control)
+             (ice-9 sandbox)
              (rnrs exceptions))
 
 (define +channels+ '("#tildetown" "#bots"))
@@ -79,7 +80,7 @@
   (guard (ex
           (else (begin (display "error encountered!\n")
                        'error)))
-    (eval (read (open-input-string str)) (interaction-environment))))
+    (eval-in-sandbox (read (open-input-string str)))))
 
 (define (main-loop stream)
   (let* ((inl (read-line stream))