Changeset 15454 in project


Ignore:
Timestamp:
08/14/09 05:24:17 (10 years ago)
Author:
Ivan Raikov
Message:

modified uri-common constructors to check if return value from uri-generic is #f

Location:
release/4/uri-common/trunk
Files:
2 edited

Legend:

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

    r15043 r15454  
    8888
    8989(define (uri-reference u)
    90   (uri-generic->uri (generic:uri-reference u)))
     90  (let ((u1 (generic:uri-reference u)))
     91    (and u1 (uri-generic->uri u1))))
    9192
    9293(define (absolute-uri u)
    93   (uri-generic->uri (generic:absolute-uri u)))
     94  (let ((u1 (generic:absolute-uri u)))
     95    (and u1 (uri-generic->uri u1))))
    9496
    9597(define (uri-generic->uri uri)
  • release/4/uri-common/trunk/uri-common.setup

    r15043 r15454  
    1515
    1616  ;; Assoc list with properties for your extension:
    17   '((version 0.7)
     17  '((version 0.71)
    1818    (documentation "uri-common.html")))
Note: See TracChangeset for help on using the changeset viewer.