From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sat, 16 Jul 2011 00:42:16 +0000 (-0700)
Subject: Close-in/output-buffer now call source/sink close method.
X-Git-Tag: mit-scheme-pucked-9.2.12~691
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5a39ad8106f2e664db298affecaf48acc93713b;p=mit-scheme.git

Close-in/output-buffer now call source/sink close method.
---

diff --git a/src/runtime/genio.scm b/src/runtime/genio.scm
index 7d060cc82..386c02db8 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))))
 
@@ -757,6 +759,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)