From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 1 Sep 1993 20:21:58 +0000 (+0000)
Subject: Remove fossil.
X-Git-Tag: 20090517-FFI~7924
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8cb936229f4c9b4a3a97e76b33e6f6ac899e4706;p=mit-scheme.git

Remove fossil.
---

diff --git a/v7/src/microcode/uxio.c b/v7/src/microcode/uxio.c
index 123e4099d..7eede89b0 100644
--- a/v7/src/microcode/uxio.c
+++ b/v7/src/microcode/uxio.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: uxio.c,v 1.29 1993/04/27 10:04:49 cph Exp $
+$Id: uxio.c,v 1.30 1993/09/01 20:21:58 gjr Exp $
 
-Copyright (c) 1990-93 Massachusetts Institute of Technology
+Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -557,24 +557,3 @@ DEFUN (UX_select_input, (fd, blockp), int fd AND int blockp)
   }
   return (select_input_other);
 }
-
-long
-DEFUN (OS_channel_select_then_read, (channel, buffer, nbytes),
-       Tchannel channel AND
-       PTR buffer AND
-       size_t nbytes)
-{
-  switch (UX_select_input ((CHANNEL_DESCRIPTOR (channel)),
-			   (! (CHANNEL_NONBLOCKING (channel)))))
-    {
-    case select_input_none:
-      return (-1);
-    case select_input_other:
-      return (-2);
-    case select_input_process_status:
-      return (-3);
-    case select_input_interrupt:
-      return (-4);
-    }
-  return (OS_channel_read (channel, buffer, nbytes));
-}