Changeset 12360 in project


Ignore:
Timestamp:
11/05/08 21:00:57 (13 years ago)
Author:
sjamaan
Message:

Fix another edge case; uri-relative-to broke on empty path component on the left side

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

Legend:

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

    r12140 r12360  
    9595    (,base "g#s/./x" "http://a/b/c/g#s/./x")
    9696    (,base "g#s/../x" "http://a/b/c/g#s/../x")
     97   
     98    ("?a=b&c=d" "" "?a=b&c=d")
     99    (,base "" "http://a/b/c/d;p?q")
     100    ("" ,base "http://a/b/c/d;p?q")
    97101    ))
    98102
  • release/4/uri-generic/trunk/uri-generic.scm

    r12140 r12360  
    823823(define (merge0 pb pr)
    824824  (let* ((rpb  (reverse pb))
    825          (pb1  (reverse (if (not (string=? (car rpb) "/")) (cdr rpb) rpb)))
     825         (pb1  (reverse (if (and (pair? rpb) (not (string=? (car rpb) "/"))) (cdr rpb) rpb)))
    826826         (pr1  (or (and (pair? pr) (not (string=? ".." (car pr))) (not (string=? "." (car pr)))
    827827                        (not (string-prefix? "/" (car pr)))
Note: See TracChangeset for help on using the changeset viewer.