~ chicken-core (master) a468a6cfd64db5383a374aa3b19c2352b76a05b8

commit a468a6cfd64db5383a374aa3b19c2352b76a05b8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 25 19:09:35 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 25 19:09:35 2026 +0200

    replace use of deprecated procedure with internal version

diff --git a/library.scm b/library.scm
index 9ca553c6..09621c6b 100644
--- a/library.scm
+++ b/library.scm
@@ -8521,13 +8521,16 @@ static C_word C_curdir(C_word buf, C_word size) {
 (define chicken.io#read-bytevector/port read-bytevector/port)
 (define chicken.io#read-bytevector!/port read-bytevector!/port)
 
-(define (read-buffered #!optional (port ##sys#standard-input))  ; DEPRECATED
-  (##sys#check-input-port port #t 'read-buffered)
+(define (##sys#read-buffered-bytes port)
   (let ((rb (##sys#slot (##sys#slot port 2) 9))) ; read-buffered method
     (if rb
 	(rb port)
 	"")))
 
+(define (read-buffered #!optional (port ##sys#standard-input))  ; DEPRECATED
+  (##sys#check-input-port port #t 'read-buffered)
+  (##sys#read-buffered-bytes port))
+
 
 ;;; read token of characters that satisfy a predicate
 
diff --git a/port.scm b/port.scm
index b2de9937..3141eeed 100644
--- a/port.scm
+++ b/port.scm
@@ -410,7 +410,7 @@ char *ttyname(int fd) {
                                   (let ((m (insert dest start x)))
                                     (loop (and n (fx- n m)) (fx+ c m))))))))))
 	     read-line			; read-line
-	     read-buffered     ; read-buffered
+	     ##sys#read-buffered-bytes     ; read-buffered
              (lambda (p) (ready?))  ; char-ready?
              ))
 	   (data (vector #f))