mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

rename string->uri and uri->string.

Browse source 
* module/web/uri.scm (string->uri, uri->string): Rename from parse-uri
  and unparse-uri.

* test-suite/tests/web-uri.test:
* module/web/http.scm: All callers changed.
This commit is contained in:
Andy Wingo 2010-12-31 12:44:11 -05:00
parent b3f9444892
commit 8745c33afb
3 changed files with 24 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/web/uri.scm
View file

@ -37,7 +37,7 @@
build-uri
declare-default-port!
parse-uri unparse-uri
string->uri uri->string
uri-decode uri-encode
split-and-decode-uri-path
encode-and-join-uri-path))
@ -160,7 +160,7 @@ consistency checks to make sure that the constructed URI is valid."
(define uri-regexp
(make-regexp uri-pat))
(define (parse-uri string)
(define (string->uri string)
"Parse @var{string} into a URI object. Returns @code{#f} if the string
could not be parsed."
(% (let ((m (regexp-exec uri-regexp string)))
@ -197,7 +197,7 @@ printed."
(declare-default-port! 'http 80)
(declare-default-port! 'https 443)
(define (unparse-uri uri)
(define (uri->string uri)
"Serialize @var{uri} to a string."
(let* ((scheme-str (string-append
(symbol->string (uri-scheme uri)) ":"))