diff --git a/anna.scm b/anna.scm index d761362..74efb08 100644 --- a/anna.scm +++ b/anna.scm @@ -73,8 +73,6 @@ (cond ((equal? (car data) "PING") (pong stream)) - ((equal? ":.hello" (slist-ref data 3)) - (send-message stream +channel+ "hello, world")) ((equal? ":.eval" (slist-ref data 3)) (let* ((expr (string-concatenate (intersperse " " (cdr (member ":eval" data)))))) (send-message stream +channel+ (eval (read (open-input-string expr))