diff options
| author | tilpner | 2018-04-23 08:22:38 +0200 |
|---|---|---|
| committer | tilpner | 2018-04-23 08:22:38 +0200 |
| commit | bbb5f7e226a6ce521283e9e6d438cbad3f293239 (patch) | |
| tree | 6b4dbe05904e52b4047b91173af50cf303b5c98a | |
| parent | 11524350c6c4d887665d753ce5d160ad40a61b44 (diff) | |
| download | meep-bbb5f7e226a6ce521283e9e6d438cbad3f293239.tar.gz meep-bbb5f7e226a6ce521283e9e6d438cbad3f293239.tar.xz meep-bbb5f7e226a6ce521283e9e6d438cbad3f293239.zip | |
Restrict command triggers by disabling [] and {} in safe-read
| -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))))) |