summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-01-22 10:12:59 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-22 15:15:43 +0100
commit5a35d42aa5be26f1048fceea9acfa21bc9f6bc3e (patch)
tree783725e40a20fed1bf932eb020878047a62dc547 /module/web
parent84f5a8251710c7d2a01590aa083d9dd409a56279 (diff)
downloadguile-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.scm4
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))))