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

correctly convert url to string when raising unsupported scheme error

Browse Source
This commit is contained in:
w6vvn
2025-09-08 13:42:29 -07:00
parent 6529f4118c
commit 7114336863
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
client.rkt
View File

@@ -166,7 +166,8 @@
'get-document 'get-document
(string-append "unsupported scheme: ~a~n" (string-append "unsupported scheme: ~a~n"
" url: ~a~n") " url: ~a~n")
(url-scheme destination) destination)) (url-scheme destination)
(url->string destination)))
(define-values (status meta body-port) (define-values (status meta body-port)
(net:request destination)) (net:request destination))