From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Oct 2005 21:01:06 +0000 (+0000)
Subject: Add optional BLOCK? argument to TEST-FOR-IO-ON-CHANNEL.
X-Git-Tag: 20090517-FFI~1211
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aaaec5f004149d7478b0546da51a664d14af0f02;p=mit-scheme.git

Add optional BLOCK? argument to TEST-FOR-IO-ON-CHANNEL.
---

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index ae5d63e48..3701c549c 100644
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: io.scm,v 14.81 2004/12/28 06:41:33 cph Exp $
+$Id: io.scm,v 14.82 2005/10/23 21:01:06 cph Exp $
 
 Copyright 1986,1987,1988,1990,1991,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -488,9 +488,11 @@ USA.
    (encode-select-registry-mode mode))
   (set-select-registry-length! registry #f))
 
-(define (test-for-io-on-channel channel mode)
+(define (test-for-io-on-channel channel mode #!optional block?)
   (test-for-io-on-descriptor (channel-descriptor-for-select channel)
-			     (channel-blocking? channel)
+			     (if (default-object? block?)
+				 (channel-blocking? channel)
+				 block?)
 			     mode))
 
 (define (channel-has-input? channel)