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

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 93052cbb4d4e430f569cbce8ef37ac0a8d241d90..3e20b76c5ce5a120d93dae530f790c97759503c1 100644 (file)
--- 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 93052cbb4d4e430f569cbce8ef37ac0a8d241d90..3e20b76c5ce5a120d93dae530f790c97759503c1 100644 (file)
--- 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