Fix calls to tcsetpgrp to avoid infinite loops on ENOSYS.

diff --git a/src/microcode/uxproc.c b/src/microcode/uxproc.c
index c52441c41c30ac56d06ee1f20f87f1f047f4f033..b09fae575cf3a4ebbff07296b83f7abd4663ce9a 100644 (file)
--- a/src/microcode/uxproc.c
+++ b/src/microcode/uxproc.c
@@ -654,8 +654,12 @@ give_terminal_to (Tprocess process)
       OS_save_internal_state ();
       OS_restore_external_state ();
       while ((UX_tcsetpgrp (scheme_ctty_fd, (PROCESS_ID (process)))) < 0)
-       if ((errno != ENOSYS) && (errno != EINTR))
-         error_system_call (errno, syscall_tcsetpgrp);
+       {
+         if (errno == ENOSYS)
+           break;
+         if (errno != EINTR)
+           error_system_call (errno, syscall_tcsetpgrp);
+       }
     }
 }
 
@@ -665,7 +669,7 @@ get_terminal_back (void)
   if (foreground_child_process != NO_PROCESS)
     {
       while ((UX_tcsetpgrp (scheme_ctty_fd, (UX_getpgrp ()))) < 0)
-       if ((errno != ENOSYS) && (errno != EINTR))
+       if (errno != EINTR)
          /* We're in no position to signal an error here (inside a
             transaction commit/abort action or a signal handler), so
             just bail.  */