Changeset 11794 in project


Ignore:
Timestamp:
08/28/08 21:43:51 (12 years ago)
Author:
sjamaan
Message:

Simplify a bit by using update-URI instead of using make-URI with the values of the old URI all the time

File:
1 edited

Legend:

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

    r11779 r11794  
    767767(define (just-segments u)
    768768  (let ((p (remove-dot-segments (uri-path u))))
    769     (make-URI scheme: (uri-scheme u) authority: (uri-auth u) path: p
    770               query: (uri-query u) fragment: (uri-fragment u))))
     769    (update-URI u path: p)))
    771770
    772771(define (merge0 pb pr)
     
    789788  (let ((rs (uri-scheme ref))
    790789        (rb (uri-scheme base)))
    791     (let ((ref1 (make-URI scheme: (if (eq? rs rb) #f (uri-scheme ref))
    792                           authority: (uri-auth ref) path: (uri-path ref)
    793                           query: (uri-query ref) fragment: (uri-fragment ref))))
     790    (let ((ref1 (update-URI ref scheme: (if (eq? rs rb) #f (uri-scheme ref)))))
    794791      (uri-relative-to ref1 base))))
    795792
     
    861858
    862859(define (udup u)
    863   (make-URI scheme: (uri-scheme u) authority: (uri-auth u) path: (uri-path u)
    864             query: (uri-query u) fragment: (uri-fragment u)))
     860  (update-URI u))
    865861
    866862(define (ucdiff? sel u1 u2)
Note: See TracChangeset for help on using the changeset viewer.