[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: http: Fix typo in proxy handling in 'write-reques
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: http: Fix typo in proxy handling in 'write-request-line'. |
Date: |
Fri, 10 Nov 2017 16:57:25 -0500 (EST) |
civodul pushed a commit to branch stable-2.2
in repository guile.
commit 7d0d9e2c25c1e872cfc7d14ab5139915f1813d56
Author: Ludovic Courtès <address@hidden>
Date: Fri Nov 10 22:54:49 2017 +0100
http: Fix typo in proxy handling in 'write-request-line'.
Reported by Konrad Hinsen <address@hidden>
at <https://lists.gnu.org/archive/html/guix-devel/2017-11/msg00070.html>.
* module/web/http.scm (write-request-line): Move 'string-index' first in
'cond' clause. Fixes a regression introduced in
96b994b6f815747ce2548123cc996d8132bd4781.
---
module/web/http.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/module/web/http.scm b/module/web/http.scm
index 993b50e..62f0624 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,7 +1158,7 @@ three values: the method, the URI, and the version."
(put-symbol port scheme)
(put-string port "://")
(cond
- ((host string-index #\:)
+ ((string-index host #\:)
(put-char #\[ port)
(put-string port host
(put-char port #\])))