diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-22 10:12:59 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-22 15:15:43 +0100 |
commit | 5a35d42aa5be26f1048fceea9acfa21bc9f6bc3e (patch) | |
tree | 783725e40a20fed1bf932eb020878047a62dc547 /module/web | |
parent | 84f5a8251710c7d2a01590aa083d9dd409a56279 (diff) | |
download | guile-5a35d42aa5be26f1048fceea9acfa21bc9f6bc3e.tar.gz |
add read-string and read-string! to (ice-9 rdelim)
* module/ice-9/rdelim.scm (read-string!, read-string): New functions.
* test-suite/tests/rdelim.test: Add tests.
* doc/ref/api-io.texi: Add docs.
* module/ice-9/iconv.scm:
* module/rnrs/io/ports.scm:
* module/web/uri.scm: Use the new functions.
Diffstat (limited to 'module/web')
-rw-r--r-- | module/web/uri.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/web/uri.scm b/module/web/uri.scm index b688ea8cb..25406b368 100644 --- a/module/web/uri.scm +++ b/module/web/uri.scm @@ -1,6 +1,6 @@ ;;;; (web uri) --- URI manipulation tools ;;;; -;;;; Copyright (C) 1997,2001,2002,2010,2011,2012 Free Software Foundation, Inc. +;;;; Copyright (C) 1997,2001,2002,2010,2011,2012,2013 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -286,7 +286,7 @@ serialization." (utf8->string bv) (let ((p (open-bytevector-input-port bv))) (set-port-encoding! p encoding) - (let ((res (read-delimited "" p))) + (let ((res (read-string p))) (close-port p) res)))) |