summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-11-29 21:12:01 +0100
committerAndy Wingo <wingo@pobox.com>2017-11-29 21:12:01 +0100
commite10999be2ea000975047791c511fbf68898bf34e (patch)
tree22904fe9c6045dc645e056c496977b18611db412 /module/web
parent82b57d113ccaa57fde3b0869df1b8798af9d51c8 (diff)
parent2fe9a852fb3c6aaeef5dc9d12df3a9150eeb232a (diff)
downloadguile-e10999be2ea000975047791c511fbf68898bf34e.tar.gz
Merge until 2fe9a852fb3c6aaeef5dc9d12df3a9150eeb232a from stable-2.2
Diffstat (limited to 'module/web')
-rw-r--r--module/web/http.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index 993b50ef4..de61c9495 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -1,6 +1,6 @@
;;; HTTP messages
-;; Copyright (C) 2010-2016 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2017 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -1158,10 +1158,10 @@ three values: the method, the URI, and the version."
(put-symbol port scheme)
(put-string port "://")
(cond
- ((host string-index #\:)
- (put-char #\[ port)
- (put-string port host
- (put-char port #\])))
+ ((string-index host #\:)
+ (put-char port #\[)
+ (put-string port host)
+ (put-char port #\]))
(else
(put-string port host)))
(unless ((@@ (web uri) default-port?) scheme host-port)