summaryrefslogtreecommitdiff
path: root/irc/bot.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'irc/bot.rkt')
-rw-r--r--irc/bot.rkt8
1 files changed, 7 insertions, 1 deletions
diff --git a/irc/bot.rkt b/irc/bot.rkt
index c0d9d22..abedd67 100644
--- a/irc/bot.rkt
+++ b/irc/bot.rkt
@@ -105,4 +105,10 @@
; does this belong here?
(define (safe-read-string s)
(call-with-default-reading-parameterization
- (thunk (read (open-input-string s)))))
+ (thunk
+ parameterize ([read-square-bracket-as-paren #f]
+ [read-curly-brace-as-paren #f]
+ [read-accept-compiled #f]
+ [read-accept-reader #f]
+ [read-accept-lang #f])
+ (read (open-input-string s)))))