diff options
author | Andy Wingo <wingo@pobox.com> | 2017-11-29 21:12:01 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2017-11-29 21:12:01 +0100 |
commit | e10999be2ea000975047791c511fbf68898bf34e (patch) | |
tree | 22904fe9c6045dc645e056c496977b18611db412 /module/web | |
parent | 82b57d113ccaa57fde3b0869df1b8798af9d51c8 (diff) | |
parent | 2fe9a852fb3c6aaeef5dc9d12df3a9150eeb232a (diff) | |
download | guile-e10999be2ea000975047791c511fbf68898bf34e.tar.gz |
Merge until 2fe9a852fb3c6aaeef5dc9d12df3a9150eeb232a from stable-2.2
Diffstat (limited to 'module/web')
-rw-r--r-- | module/web/http.scm | 10 |
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) |