opfez
/
anna
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove .hello

master
opfez 2021-04-08 14:18:04 +00:00
parent 2b2f86d164
commit 6edfce6605
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
anna.scm
View File

@ -73,8 +73,6 @@
(cond (cond
((equal? (car data) "PING") ((equal? (car data) "PING")
(pong stream)) (pong stream))
((equal? ":.hello" (slist-ref data 3))
(send-message stream +channel+ "hello, world"))
((equal? ":.eval" (slist-ref data 3)) ((equal? ":.eval" (slist-ref data 3))
(let* ((expr (string-concatenate (intersperse " " (cdr (member ":eval" data)))))) (let* ((expr (string-concatenate (intersperse " " (cdr (member ":eval" data))))))
(send-message stream +channel+ (eval (read (open-input-string expr)) (send-message stream +channel+ (eval (read (open-input-string expr))