scripts/eval

   1 ; -*- 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)