Changeset 5049 in project


Ignore:
Timestamp:
07/14/07 07:45:04 (13 years ago)
Author:
Kon Lovett
Message:

Rmvd superflous cut.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • uri/uri.scm

    r4760 r5049  
    730730        (unless (or (not path)
    731731                    (and (list? path)
    732                          (every (cut string? <>) path)))
     732                         (every string? path)))
    733733          (error 'make-url "invalid path" path))
    734734        ;
     
    740740        (unless (or (not query)
    741741                    (and (list? query)
    742                          (every (cut query-pair? <>) query)))
     742                         (every query-pair? query)))
    743743          (error 'make-url "invalid query" query))
    744744        ;
Note: See TracChangeset for help on using the changeset viewer.