diff --git a/irc-process-line.rkt b/irc-process-line.rkt index e261a97..f15ea77 100644 --- a/irc-process-line.rkt +++ b/irc-process-line.rkt @@ -485,8 +485,7 @@ (defverb (g query ...) "Do a Google search" (let ((result (list-ref (hash-ref (search (string-join query " ")) 'items) 0))) - (reply (hash-ref result 'title)) - (reply (hash-ref result 'link)))) + (reply "~a ~a" (hash-ref result 'title)(hash-ref result 'link)))) (defverb (sentientp) "imitate fsbot" (reply "Any day now"))