diff options
| author | Adrian Kummerlaender | 2016-03-11 12:25:13 +0100 |
|---|---|---|
| committer | Adrian Kummerlaender | 2016-03-11 12:26:24 +0100 |
| commit | c5dbb98ee5639883676414e4948923de46ba0a5d (patch) | |
| tree | bbe0d34c965a8ce0634fdfd1fa8abc2a0da6f206 | |
| parent | 4de7383ed16f9908c34afb893374f4dd01fbfc06 (diff) | |
| download | Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar.gz Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar.bz2 Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar.lz Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar.xz Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.tar.zst Telebot-c5dbb98ee5639883676414e4948923de46ba0a5d.zip | |
Remove reply parameter from echo-bot example
| -rw-r--r-- | bot.scm | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -31,13 +31,11 @@ ")")) (define (echo-message msg) - (let ((chat_id (resolve-query (list 'message 'from 'id) msg)) - (text (resolve-query (list 'message 'text) msg)) - (message_id (resolve-query (list 'message 'message_id) msg))) + (let ((chat_id (resolve-query (list 'message 'from 'id) msg)) + (text (resolve-query (list 'message 'text) msg))) (telebot:sendMessage token - chat_id: chat_id - text: text - reply_to_message_id: message_id))) + chat_id: chat_id + text: text))) (do-forever (updates-for-each (lambda (u) |