From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Nov 1994 00:12:23 +0000 (+0000)
Subject: Eliminate unix-specific channel-type=foo? predicates.
X-Git-Tag: 20090517-FFI~7016
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aee36516d9858ca9ae5072e2dd4c5de130f415f0;p=mit-scheme.git

Eliminate unix-specific channel-type=foo? predicates.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 93052cbb4..3e20b76c5 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.235 1994/10/11 20:54:26 cph Exp $
+$Id: runtime.pkg,v 14.236 1994/11/14 00:12:23 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1633,11 +1633,8 @@ MIT in each case. |#
 	  channel-read-block
 	  channel-table
 	  channel-type
-	  channel-type=block-device?
-	  channel-type=character-device?
 	  channel-type=directory?
 	  channel-type=file?
-	  channel-type=pty-master?
 	  channel-type=terminal?
 	  channel-type=unknown?
 	  channel-write
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 93052cbb4..3e20b76c5 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.235 1994/10/11 20:54:26 cph Exp $
+$Id: runtime.pkg,v 14.236 1994/11/14 00:12:23 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1633,11 +1633,8 @@ MIT in each case. |#
 	  channel-read-block
 	  channel-table
 	  channel-type
-	  channel-type=block-device?
-	  channel-type=character-device?
 	  channel-type=directory?
 	  channel-type=file?
-	  channel-type=pty-master?
 	  channel-type=terminal?
 	  channel-type=unknown?
 	  channel-write