Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

for http uris with empty hosts, omit the scheme in the string repr

Browse source
This commit is contained in:
Alex Shinn 2015-02-11 20:27:27 +09:00
parent 57e657a48d
commit 695b845b11
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/uri.scm
View file

@ -184,7 +184,9 @@
(host (uri-host uri))
(user (uri-user uri)))
(string-append
(symbol->string (uri-scheme uri)) ":"
(if (and (not host) (memq (uri-scheme uri) '(http https)))
""
(string-append (symbol->string (uri-scheme uri)) ":"))
(if (or user host port) "//" "")
(if user (encode user) "") (if user "@" "")
(or host "") ; host shouldn't need encoding