Changeset 13216 in project


Ignore:
Timestamp:
02/08/09 15:59:36 (11 years ago)
Author:
sjamaan
Message:

Add new uri-generic predicates to uri-common too

File:
1 edited

Legend:

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

    r13176 r13216  
    4141
    4242(module uri-common
    43   (uri-reference absolute-uri uri->uri-generic uri-generic->uri
     43  (uri-reference absolute-uri absolute-uri? relative-ref?
     44   uri->uri-generic uri-generic->uri
    4445   update-uri uri? uri-scheme uri-username uri-password
    4546   uri-host uri-port uri-path uri-query uri-fragment
     
    103104  (and s (generic:uri-decode-string s)))
    104105
    105 ;;; Accessors
     106;;; Accessors and predicates
    106107(define uri?         URI-common?)
     108(define (absolute-uri? u)
     109  (and (URI-common? u) (generic:absolute-uri? (URI-common-generic u))))
     110(define (relative-ref? u)
     111  (and (URI-common? u) (generic:relative-ref? (URI-common-generic u))))
    107112(define uri-scheme   (compose generic:uri-scheme URI-common-generic))
    108113(define uri-username URI-common-username)
Note: See TracChangeset for help on using the changeset viewer.