aboutsummaryrefslogtreecommitdiff
path: root/telebot.scm
diff options
context:
space:
mode:
Diffstat (limited to 'telebot.scm')
-rw-r--r--telebot.scm15
1 files changed, 10 insertions, 5 deletions
diff --git a/telebot.scm b/telebot.scm
index 963b829..3970588 100644
--- a/telebot.scm
+++ b/telebot.scm
@@ -28,6 +28,8 @@
is-edited_message?
is-inline_query?
is-chosen_inline_result?
+ is-text?
+ is-location?
poll-updates
make-conversation-manager)
(import chicken scheme)
@@ -247,12 +249,15 @@
(define (update-predicate type)
(lambda (update)
- (not (equal? #f (alist-ref type update)))))
+ (not (equal? #f (resolve-query 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))
+ (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)))
+
+ (define is-text? (update-predicate '(message text)))
+ (define is-location? (update-predicate '(message location)))
(define (poll-updates token handler)
(let ((offset 0))