diff --git a/client.rkt b/client.rkt index 1ec14be..481f69b 100644 --- a/client.rkt +++ b/client.rkt @@ -109,7 +109,6 @@ [(and (>= status 20) (<= status 29)) - (let-values ([(doc) (gmi:parse (port->lines c-in))] [(db-in db-out) (make-pipe #f)]) @@ -150,4 +149,6 @@ (<= status 69)) (displayln "certificate handling not yet implemented")])))) - (iter url 5)))) + (if (not (string=? (url-scheme url) "gemini")) + (printf "unsupported url: ~a~n" (url->string url)) + (iter url 5)))))