~ chicken-core (master) 304d61992004aeaf7b36c1f160386c6ef4b87f5f


commit 304d61992004aeaf7b36c1f160386c6ef4b87f5f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 5 23:19:47 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 5 23:19:47 2026 +0200

    missing import, mark read-buffered use as deprecated

diff --git a/port.scm b/port.scm
index 98177b61..0fdf4e88 100644
--- a/port.scm
+++ b/port.scm
@@ -67,7 +67,7 @@
 	chicken.fixnum
 	chicken.foreign
 	chicken.io)
-(import (only (scheme base) open-output-string get-output-string open-input-string))
+(import (only (scheme base) open-output-string get-output-string open-input-string u8-ready?))
 
 (include "common-declarations.scm")
 
@@ -585,7 +585,7 @@ char *ttyname(int fd) {
 		 (lambda (_ l)           ; read-line
 		   (read-line i l))
 		 (lambda (_)              ; read-buffered
-		   (read-buffered i))
+		   (read-buffered i))     ; DEPRECATED
                  (lambda (_)            ; char-ready?
                    (char-ready? i))))
 	 (port (##sys#make-port 3 class "(bidirectional)" 'bidirectional)))
Trap