From c95fa907ce38494a51ba5d2c2abe05b939321520 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 19 Aug 2011 09:11:35 -0700 Subject: [PATCH] Fixed close-in/output-buffer to apply source/sink close method. --- src/runtime/genio.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm index 61b24cf9c..6a3b6cfa4 100644 --- a/src/runtime/genio.scm +++ b/src/runtime/genio.scm @@ -654,7 +654,8 @@ USA. (lambda () (channel-port channel)) (lambda (port) (set-channel-port! channel port)) (lambda () (channel-open? channel)) - (lambda () (channel-close channel)) + (lambda () ;; channel-close provided by maybe-close-channels + unspecific) (lambda () (channel-has-input? channel)) (lambda (string start end) (channel-read channel string start end)))) @@ -694,7 +695,8 @@ USA. (lambda () (channel-port channel)) (lambda (port) (set-channel-port! channel port)) (lambda () (channel-open? channel)) - (lambda () (channel-close channel)) + (lambda () ;; channel-close provided by maybe-close-channels + unspecific) (lambda (string start end) (channel-write channel string start end)))) @@ -755,6 +757,7 @@ USA. (set-input-buffer-end! ib byte-buffer-length)) (define (close-input-buffer ib) + ((source/close (input-buffer-source ib))) (set-input-buffer-line! ib -1) (set-input-buffer-prev! ib -1) (set-input-buffer-start! ib -1) @@ -997,6 +1000,7 @@ USA. (if (output-buffer-open? ob) (begin (force-drain-output-buffer ob) + ((sink/close (output-buffer-sink ob))) (set-output-buffer-start! ob -1)))) (define (output-buffer-channel ob) -- 2.25.1