From 775eb31bc0bb9457b47ba63c317395c53261111f Mon Sep 17 00:00:00 2001
From: opfez <opfez@disroot.org>
Date: Fri, 9 Apr 2021 06:13:16 +0000
Subject: [PATCH] sandboxed evaluation

---
 anna.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/anna.scm b/anna.scm
index b2da654..5e7143f 100644
--- a/anna.scm
+++ b/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))