~ 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