From a2b7e8ce331a05d099f05c261ec36dc235caa222 Mon Sep 17 00:00:00 2001
From: Christoph Lange
Date: Thu, 19 Apr 2018 16:12:02 +0200
Subject: is-edited_message? -- check if message is edited

---
 telebot.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/telebot.scm b/telebot.scm
index 34fc466..292151c 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -24,6 +24,7 @@
                  answerInlineQuery
                  ;;; framework
                  is-message?
+		 is-edited_message?
                  is-inline_query?
                  is-chosen_inline_result?
                  poll-updates
@@ -248,6 +249,7 @@
       (not (equal? #f (alist-ref type update)))))
 
   (define is-message?              (update-predicate 'message))
+  (define is-edited_message?       (update-predicate 'edited_message))
   (define is-inline_query?         (update-predicate 'inline_query))
   (define is-chosen_inline_result? (update-predicate 'chosen_inline_result))
 
-- 
cgit v1.2.3