scripts/eval

   1 ; -*- guile-scheme -*-
   2 (use-modules (ice-9 slib))
   3
   4 (require 'coerce)
   5
   6 (define (bot-eval channel str)
   7   (bot-say channel
   8            (coerce
   9            (eval-string str) 'string)))
  10
  11 (bot-addcommand "eval" bot-eval #t 2 4)