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

docstring in rdelim

Browse source 
* module/ice-9/rdelim.scm: Update docstring.
This commit is contained in:
Andy Wingo 2013-01-22 15:39:37 +01:00
parent 5745de9172
commit 7ca5500ff3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/rdelim.scm
View file

@ -150,8 +150,8 @@ left in the port."
(define* (read-string #:optional (port (current-input-port)) (count #f)) (define* (read-string #:optional (port (current-input-port)) (count #f))
"Read all of the characters out of PORT and return them as a string. "Read all of the characters out of PORT and return them as a string.
If the COUNT is present, treat it as a limit to the number of characters If the COUNT argument is present, treat it as a limit to the number of
to read. By default, there is no limit." characters to read. By default, there is no limit."
(check-arg (or (not count) (index? count)) "bad count" count) (check-arg (or (not count) (index? count)) "bad count" count)
(let loop ((substrings '()) (let loop ((substrings '())
(total-chars 0) (total-chars 0)