Changeset 13228 in project for release/4/uri-generic/trunk/uri-generic.scm
- Timestamp:
- 02/09/09 22:10:45 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/uri-generic/trunk/uri-generic.scm
r13213 r13228 707 707 ((uq rst) (match rst ((#\? . rst) (query rst)) 708 708 (else (list #f rst))))) 709 (make-URI scheme: (string->symbol (list->string us)) authority: ua 710 path: (uri-path-list->path up) query: (and uq (uri-char-list->string uq)) 711 fragment: #f))) 709 (match rst 710 ((#\# . rst) (error 'absolute-uri "fragments are not permitted in absolute URI")) 711 (else (make-URI scheme: (string->symbol (list->string us)) authority: ua 712 path: (uri-path-list->path up) 713 query: (and uq (uri-char-list->string uq)) 714 fragment: #f))))) 712 715 (else (error 'absolute-uri "no scheme found in URI string"))))) 713 716
Note: See TracChangeset
for help on using the changeset viewer.