discord: drop "discriminator" feature

diff --git a/extra/discord/discord.factor b/extra/discord/discord.factor
index 7bacb946a7b8f9e0b71f7fe7b37f58863899b6e3..def11e55a6f7264c45b744c18590864311785e50 100644 (file)
--- a/extra/discord/discord.factor
+++ b/extra/discord/discord.factor
@@ -226,7 +226,7 @@ SINGLETONS:
     { [ message-mentions-me? ] [ message-from-me? not ] } 1&& ;
 : message-channel-id ( json -- ids ) "channel_id" of ;
 : obey-message? ( json -- ? )
-    "author" of [ "username" of ] [ "discriminator" of ] bi "#" glue
+    "author" of "username" of
     discord-bot get config>> obey-names>> [ in? ] [ drop f ] if* ;
 
 : handle-incoming-message ( guild_id channel_id message_id author content -- )