From a991a0a4e6779063348aba6c5237b0a3acfed311 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Thu, 26 Oct 1995 20:42:35 +0000
Subject: [PATCH] Added pty stuff, select!, become-session-leader, copy-vector,
 and process-related tty stuff.

---
 scsh/scsh-interfaces.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index 2670b25..5d3864c 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -126,6 +126,7 @@
 			      seek/end
 
 			      select
+			      select!
 
 			      flush-all-ports
 			      y-or-n?
@@ -162,6 +163,12 @@
 			      with-region-lock*
 			      (with-region-lock :syntax)
 
+			      fork-job/pty
+			      open-pty
+			      pty-name->tty-name
+			      tty-name->pty-name
+			      make-pty-generator
+
 			      with-current-input-port*
 			      (with-current-input-port :syntax)
 			      with-current-output-port*
@@ -315,6 +322,7 @@
 	  parent-pid
 	  process-group
 	  set-process-group
+	  become-session-leader
 
 	  user-login-name
 	  user-uid
@@ -527,7 +535,7 @@
 
 (define-interface scsh-utilities-interface
   (export del delete index rindex reduce filter first any first? nth
-	  any? every? mapv mapv! vector-every?
+	  any? every? mapv mapv! vector-every? copy-vector
 	  optional-arg optional-arg* parse-optionals
 	  check-arg conjoin disjoin negate compose reverse! call/cc
 	  deprecated-proc
@@ -949,4 +957,8 @@
 
 	  encode-baud-rate
 	  decode-baud-rate
+
+	  open-control-tty
+	  set-tty-process-group
+	  tty-process-group
 	  )))