From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 19 Aug 2011 16:11:35 +0000 (-0700)
Subject: Fixed close-in/output-buffer to apply source/sink close method.
X-Git-Tag: release-9.2.0~347^2~2^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c95fa907ce38494a51ba5d2c2abe05b939321520;p=mit-scheme.git

Fixed close-in/output-buffer to apply source/sink close method.
---

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)