From cbe9488ff46b05f196708c25d15bfa3c0b5ab0a0 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sun, 13 Mar 2016 12:26:15 +0100
Subject: Move basic update polling into `pollUpdates` framework function

---
 bot.scm | 21 ++++-----------------
 1 file changed, 4 insertions(+), 17 deletions(-)

(limited to 'bot.scm')

diff --git a/bot.scm b/bot.scm
index a6d34cc..79b1b6e 100644
--- a/bot.scm
+++ b/bot.scm
@@ -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))))
-- 
cgit v1.2.3