From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 Jul 1991 18:41:14 +0000 (+0000)
Subject: Don't treat EACCES specially when opening pty -- this can happen and
X-Git-Tag: 20090517-FFI~10492
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a0fda52a25e25dc75b48c5488ce1c82e9417a253;p=mit-scheme.git

Don't treat EACCES specially when opening pty -- this can happen and
in that case the pty should be ignored.
---

diff --git a/v7/src/microcode/uxterm.c b/v7/src/microcode/uxterm.c
index cc359f73d..05c158fae 100644
--- a/v7/src/microcode/uxterm.c
+++ b/v7/src/microcode/uxterm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxterm.c,v 1.16 1991/06/15 03:23:24 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxterm.c,v 1.17 1991/07/02 18:41:14 cph Exp $
 
 Copyright (c) 1990-91 Massachusetts Institute of Technology
 
@@ -543,10 +543,10 @@ DEFUN (OS_open_pty_master, (master_fd, master_fname),
 	  if (errno != EINTR)
 	    {
 #ifdef PTY_ITERATION
-	      if (errno != EACCES)
-		continue;
-#endif
+	      continue;
+#else
 	      error_system_call (errno, syscall_open);
+#endif
 	    }
 	  deliver_pending_interrupts ();
 	  goto retry_open;
@@ -556,7 +556,6 @@ DEFUN (OS_open_pty_master, (master_fd, master_fname),
       (*master_fname) = master_name;
       return (slave_name);
     }
- loser:
   error_external_return ();
   return (0);
 }