From 7d0d9e2c25c1e872cfc7d14ab5139915f1813d56 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 10 Nov 2017 22:54:49 +0100
Subject: [PATCH] http: Fix typo in proxy handling in 'write-request-line'.

Reported by Konrad Hinsen <konrad.hinsen@fastmail.net>
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 993b50ef4..62f062434 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 #\])))