From d788f6376eb539bf17c5e9b732f0e9c74f168367 Mon Sep 17 00:00:00 2001 From: w6vvn Date: Mon, 8 Sep 2025 14:08:57 -0700 Subject: [PATCH] next-cmd should only be called by get-document at the end of 20 status --- client.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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"))]))))