Changeset 12384 in project


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

Merge latest fix from uri-generic release 4

Location:
release/3/uri-generic/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/uri-generic/trunk

  • release/3/uri-generic/trunk/uri-generic.scm

    r12364 r12384  
    670670            (string-append
    671671             ((lambda (x) (or (and x (string-append (->string x) ":")) ""))  scheme)
    672              (if authority (string-append (uri-auth->string authority userinfomap) 
    673                                           (if (or (null? path) (not (string-prefix? "/" (car path)))) "/" ""))
     672             (if authority
     673                 (string-append (uri-auth->string authority userinfomap))
    674674                 "")
    675675             (string-concatenate path)
Note: See TracChangeset for help on using the changeset viewer.