mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

http: Fix typo in proxy handling in 'write-request-line'.

Browse source 
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
96b994b6f8.
This commit is contained in:
Ludovic Courtès 2017-11-10 22:54:49 +01:00
parent b322ac67d3
commit 7d0d9e2c25
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/web/http.scm
View file

@ -1,6 +1,6 @@
;;; HTTP messages ;;; 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 ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; 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-symbol port scheme)
(put-string port "://") (put-string port "://")
(cond (cond
((host string-index #\:) ((string-index host #\:)
(put-char #\[ port) (put-char #\[ port)
(put-string port host (put-string port host
(put-char port #\]))) (put-char port #\])))