Changeset 13228 in project for release/4/uri-generic/trunk/uri-generic.scm

Timestamp:

02/09/09 22:10:45 (12 years ago)

Author:

sjamaan

Message:

Get absolute-uri to throw an error when parsing an uri reference containing a fragment

File:

• release/4/uri-generic/trunk/uri-generic.scm (modified) (1 diff)

release/4/uri-generic/trunk/uri-generic.scm

@@ -707 +707 @@
                          ((uq rst)     (match rst ((#\? . rst)  (query rst))
                                               (else (list #f rst)))))
-                        (make-URI scheme: (string->symbol (list->string us)) authority: ua 
-                                  path: (uri-path-list->path up) query: (and uq (uri-char-list->string uq))
-                                  fragment: #f)))
+                        (match rst
+                               ((#\# . rst) (error 'absolute-uri "fragments are not permitted in absolute URI"))
+                               (else (make-URI scheme: (string->symbol (list->string us)) authority: ua 
+                                               path: (uri-path-list->path up)
+                                               query: (and uq (uri-char-list->string uq))
+                                               fragment: #f)))))
            (else (error 'absolute-uri "no scheme found in URI string")))))