diff options
| -rw-r--r-- | irc/bot.rkt | 8 |
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))))) |