~ chicken-core (chicken-5) e7ac2858cf153c91c62a6bf48dee27e0577f2dbc

commit e7ac2858cf153c91c62a6bf48dee27e0577f2dbc
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Fri May 19 16:32:01 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Fri May 19 16:32:01 2017 +0200

    Remove in-source documentation for read-buffered; it's in man/5

diff --git a/extras.scm b/extras.scm
index bb199a9b..3bf21fda 100644
--- a/extras.scm
+++ b/extras.scm
@@ -187,13 +187,6 @@
 (define ##sys#read-string/port read-string/port)
 (define ##sys#read-string!/port read-string!/port)
 
-;; <procedure>(read-buffered [PORT])</procedure>
-;;
-;; Reads any remaining data buffered after previous read operations on
-;; {{PORT}}. If no remaining data is currently buffered, an empty string
-;; is returned. This procedure will never block. Currently only useful for
-;; string-, process- and tcp ports.
-
 (define (read-buffered #!optional (port ##sys#standard-input))
   (##sys#check-input-port port #t 'read-buffered)
   (let ((rb (##sys#slot (##sys#slot port 2) 9))) ; read-buffered method