Changeset 12364 in project for release/3/uri-generic/trunk


Ignore:
Timestamp:
11/05/08 23:02:12 (13 years ago)
Author:
sjamaan
Message:

Backport uri->string fixes from uri-generic release 4

Location:
release/3/uri-generic/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/uri-generic/trunk

  • release/3/uri-generic/trunk/tests/run.scm

    r12361 r12364  
    128128                (let* ((to    (uri-relative-to urabs ubase)))
    129129                  (test (apply sprintf "~S * ~S -> ~S" p) uex to)
    130                   )))
     130                  ))
     131              (for-each
     132               (lambda (s)
     133                 (test (sprintf "~S = ~S" s (uri->string (uri-reference s)))
     134                       s (uri->string (uri-reference s))))
     135               p))
    131136            rfc-cases))
    132137
  • release/3/uri-generic/trunk/uri-generic.scm

    r12361 r12364  
    674674                 "")
    675675             (string-concatenate path)
    676              (if query (string-concatenate (cons "?" (intersperse query "&"))) "")
     676             (if (and query (not (null? query))) (string-concatenate (cons "?" (intersperse (map (lambda (p) (if (null? (cdr p)) (car p) (conc (car p) "=" (cdr p)))) query) "&"))) "")
    677677             (if fragment (string-append  "#" fragment) "")))
    678678           (else #f))))
Note: See TracChangeset for help on using the changeset viewer.