diff --git a/client.rkt b/client.rkt index 237ed06..a38d39b 100644 --- a/client.rkt +++ b/client.rkt @@ -223,7 +223,8 @@ ;; If the document failed to be fetched (parser error, ;; unsupported mime, so on and so forth) this would not ;; ever be reached. - (set! history (cons destination history))] + (set! history (cons destination history)) + (next-cmd)] ;; ;; 30-39 REDIRECT @@ -275,6 +276,4 @@ 'get-document (string-append "resource requires a client certificate, " "which this client does not yet support~a~n" - " url: ~a~n"))]) - - (next-cmd)))) + " url: ~a~n"))]))))