From 695b845b11e3a2b6de81f337b759bc865f1563f0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 11 Feb 2015 20:27:27 +0900
Subject: [PATCH] for http uris with empty hosts, omit the scheme in the string
 repr

---
 lib/chibi/uri.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/uri.scm b/lib/chibi/uri.scm
index 29d450cb..46fed749 100644
--- a/lib/chibi/uri.scm
+++ b/lib/chibi/uri.scm
@@ -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