opfez
/
anna
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sandboxed evaluation

master
opfez 2021-04-09 06:13:16 +00:00
parent dc699e006b
commit 775eb31bc0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
anna.scm
View File

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