discord: handle errors in bot, e.g. message too large from `help discord:dispatch...

max size is 4k so split up messages or truncate

diff --git a/extra/discord/discord.factor b/extra/discord/discord.factor
index a2bbda2bfdfa2db80a25f132f6e295c4289a81f1..ee8e927d8e9be32fa7a8f32db1210c381bde3e4c 100644 (file)
--- a/extra/discord/discord.factor
+++ b/extra/discord/discord.factor
@@ -475,4 +475,5 @@ GENERIC: discord-help-bot ( json opcode -- )
 M: object discord-help-bot 2drop ;
 
 M: MESSAGE_CREATE discord-help-bot drop
-    { [ reply-command ] [ reply-echo ] } 1|| drop ;
+    '[ _ { [ reply-command ] [ reply-echo ] } 1|| drop ]
+    [ g... gflush ] recover ;