aboutsummaryrefslogtreecommitdiff
path: root/example
diff options
context:
space:
mode:
authorAdrian Kummerlaender2016-03-15 11:56:17 +0100
committerAdrian Kummerlaender2016-03-15 11:56:17 +0100
commit35611199093138ab8a35eee89aaf91fa41dbec34 (patch)
treeb3f15de27b068d9182a5df8884beb40a820da6f3 /example
parent1c1825eee55ecb098e8b0ad6dba6bbaced7092cf (diff)
downloadTelebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.gz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.bz2
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.lz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.xz
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.tar.zst
Telebot-35611199093138ab8a35eee89aaf91fa41dbec34.zip
Add update type predicates
Diffstat (limited to 'example')
-rw-r--r--example/echo.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/example/echo.scm b/example/echo.scm
index 7afd5ae..2e190a7 100644
--- a/example/echo.scm
+++ b/example/echo.scm
@@ -27,5 +27,6 @@
(telebot:pollUpdates token
(lambda (u)
- (begin (print-message u)
- (echo-message u))))
+ (if (telebot:is-message? u)
+ (begin (print-message u)
+ (echo-message u)))))