diff options
author | Adrian Kummerlaender | 2016-03-13 12:26:15 +0100 |
---|---|---|
committer | Adrian Kummerlaender | 2016-03-13 12:26:15 +0100 |
commit | cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0 (patch) | |
tree | 4d38210edd1aa356e1cc77889853e42ef017dbf8 /bot.scm | |
parent | 5f641ea6e243dc070e3e041d513a9d02996337c2 (diff) | |
download | Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar.gz Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar.bz2 Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar.lz Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar.xz Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.tar.zst Telebot-cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0.zip |
Move basic update polling into `pollUpdates` framework function
Diffstat (limited to 'bot.scm')
-rw-r--r-- | bot.scm | 21 |
1 files changed, 4 insertions, 17 deletions
@@ -1,8 +1,6 @@ (include "telebot.scm") (import (prefix telebot telebot:)) -(use loops) -(use vector-lib) (use data-structures) (define (resolve-query query tree) @@ -10,11 +8,6 @@ tree query)) -(define (updates-for-each func updates) - (vector-for-each (lambda (i u) (func u)) - updates)) - -(define offset 0) (define token (car (command-line-arguments))) (define (print-message msg) @@ -32,13 +25,7 @@ chat_id: chat_id text: text))) -(do-forever - (updates-for-each (lambda (u) - (begin (print-message u) - (echo-message u) - (set! offset - (+ 1 (resolve-query '(update_id) u))))) - (resolve-query '(result) - (telebot:getUpdates token - offset: offset - timeout: 60)))) +(telebot:pollUpdates token + (lambda (u) + (begin (print-message u) + (echo-message u)))) |