Changeset 13087 in project


Ignore:
Timestamp:
01/25/09 21:53:06 (11 years ago)
Author:
sjamaan
Message:

Add port to update procedure... maybe we should add a basic test too?

File:
1 edited

Legend:

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

    r13086 r13087  
    134134  (let ((unset (list 'unset)))
    135135    (lambda (uc #!key
    136                 (scheme unset) (username unset) (password unset) (host unset)
     136                (scheme unset) (username unset) (password unset)
     137                (host unset) (port unset)
    137138                (path unset) (query unset) (fragment unset))
    138139      (let ((uc (update-URI-common uc))) ;; new copy
     
    155156                                  host: (encode-string* host)))
    156157          (URI-common-host-set! uc host))
     158        (unless (eq? port unset)
     159          (URI-common-generic-set!
     160           uc (generic:update-uri (URI-common-generic uc) port: port)))
    157161        (unless (eq? path unset)
    158162          (URI-common-generic-set!
Note: See TracChangeset for help on using the changeset viewer.