; -*- guile-scheme -*-
(use-modules (ice-9 slib))

(require 'coerce)

(define (bot-eval channel str)
  (bot-say channel
	   (coerce 
	   (eval-string str) 'string)))

(bot-addcommand "eval" bot-eval #t 2 4)