Changeset 13233 in project


Ignore:
Timestamp:
02/10/09 00:11:48 (11 years ago)
Author:
sjamaan
Message:

Update uri-common to match uri-generic predicate changes

File:
1 edited

Legend:

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

    r13219 r13233  
    4141
    4242(module uri-common
    43   (uri-reference absolute-uri absolute-uri? relative-ref?
     43  (uri-reference uri-reference? absolute-uri absolute-uri? relative-ref?
    4444   uri->uri-generic uri-generic->uri
    4545   update-uri uri? uri-scheme uri-username uri-password
     
    105105
    106106;;; Accessors and predicates
    107 (define uri?         URI-common?)
     107(define uri-reference? URI-common?)
     108(define (uri? u)
     109  (and (URI-common? u) (generic:uri? (URI-common-generic u))))
    108110(define (absolute-uri? u)
    109111  (and (URI-common? u) (generic:absolute-uri? (URI-common-generic u))))
Note: See TracChangeset for help on using the changeset viewer.