Changeset 14908 in project


Ignore:
Timestamp:
06/06/09 16:24:47 (11 years ago)
Author:
sjamaan
Message:

Export uri-default-port?

File:
1 edited

Legend:

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

    r14906 r14908  
    4848   uri-relative-to uri-relative-from
    4949   uri-normalize-path-segments uri-normalize-case
    50    char-set:query/fragment)
     50   char-set:query/fragment uri-default-port?)
    5151
    5252(import chicken scheme)
     
    7474
    7575(define-record-printer (URI-common x out)
    76   (fprintf out "#(URI-common scheme=~S port=~S host=~S path=~S query=~S fragment=~S)"
     76  (fprintf out "#<URI-common: scheme=~S port=~S host=~S path=~S query=~S fragment=~S>"
    7777           (generic:uri-scheme (URI-common-generic x))
    7878           (generic:uri-port (URI-common-generic x))
     
    131131(define uri-query    URI-common-query)
    132132(define uri-fragment URI-common-fragment)
     133(define (uri-default-port? uri)
     134  (default-port? (uri-port uri) (uri-scheme uri)))
    133135
    134136(define (uri-path uc)
Note: See TracChangeset for help on using the changeset viewer.