[clinton/bobotpp.git] / scripts / eval

; -*- 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)
Commit	Line	Data
9efc3706	1	; -- scheme --
cb21075d	2	(use-modules (ice-9 slib))
	3
	4	(require 'coerce)
	5
439869bf	6	(define (bot:eval channel str)
439869bf	7	(bot:say channel
cb21075d	8	(coerce
	9	(eval-string str) 'string)))
	10
439869bf	11	(bot:addcommand "eval" bot:eval #t 2 4)