~ chicken-core (master) e7a65fc1831b648e45bf063faaee83880b36e5b2

commit e7a65fc1831b648e45bf063faaee83880b36e5b2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 22 12:56:59 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 22 12:56:59 2026 +0200

    add missing flush handler
    
    (thanks to klm`)

diff --git a/library.scm b/library.scm
index 734ed0ed..4cb11129 100644
--- a/library.scm
+++ b/library.scm
@@ -1307,7 +1307,7 @@ EOF
                (add bv start end))
              (lambda (_ _) ; close
                (##sys#setislot port 8 #t))
-             #f    ; flush-output
+             (lambda (_) #f)    ; flush-output
              #f ; u8-ready?
              #f  ; read-bytevector!
              #f    ; read-line