w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

next-cmd should only be called by get-document at the end of 20 status

Browse Source
This commit is contained in:
w6vvn
2025-09-08 14:08:57 -07:00
parent 7114336863
commit d788f6376e
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
client.rkt
View File

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