Ignore:
Timestamp:
11/06/08 20:05:50 (13 years ago)
Author:
sjamaan
Message:

Fix breakage in case of empty path: a slash got added after the authority part, but this is not (always) correct

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/uri-generic/trunk/uri-generic.scm

    r12363 r12383  
    662662            (string-append
    663663             ((lambda (x) (or (and x (string-append (->string x) ":")) ""))  scheme)
    664              (if authority (string-append (uri-auth->string authority userinfomap) 
    665                                           (if (or (null? path) (not (string-prefix? "/" (car path)))) "/" ""))
     664             (if authority
     665                 (string-append (uri-auth->string authority userinfomap))
    666666                 "")
    667667             (string-concatenate path)
Note: See TracChangeset for help on using the changeset viewer.