From 22e0bf48a2aae2d639b550f783e03fc8ae542f8b Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 2 Feb 1993 04:38:46 +0000
Subject: [PATCH] Add a pseudo-suspend to DOS that invokes a subshell.

---
 v7/src/edwin/basic.scm | 10 +++++++---
 v7/src/edwin/dos.scm   | 10 ++++++++--
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 7365e88a4..f5f80f8ed 100644
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: basic.scm,v 1.126 1993/01/10 10:54:41 cph Exp $
+;;;	$Id: basic.scm,v 1.127 1993/02/02 04:34:53 gjr Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -300,7 +300,11 @@ For a normal exit, you should use \\[exit-recursive-edit], NOT this command."
 ;; Set this to #F to indicate that calling QUIT has the same effect
 ;; as calling %EXIT.
 (define scheme-can-quit?
-  (not (string=? microcode-id/operating-system-name "dos")))
+  #|
+  (not (string=? microcode-id/operating-system-name "dos"))
+  |#
+  ;; DOS now has a pseudo-suspend
+  true)
 
 ;; Set this to #T to force the exit commands to always prompt for
 ;; confirmation before killing Edwin.
diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 1ce2dc60c..d91173078 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.6 1992/12/11 21:43:41 gjr Exp $
+;;;	$Id: dos.scm,v 1.7 1993/02/02 04:38:46 gjr Exp $
 ;;;
-;;;	Copyright (c) 1992 Massachusetts Institute of Technology
+;;;	Copyright (c) 1992-1993 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -46,6 +46,12 @@
 
 (declare (usual-integrations))
 
+;; This is bogus, but only used to determine whether SUSPEND-SCHEME works,
+;; which it sort of does (subshell) under DOS.
+
+(define (subprocess-job-control-available?)
+  true)
+
 (define-variable backup-by-copying-when-linked
   "True means use copying to create backups for files with multiple names.
 This causes the alternate names to refer to the latest version as edited.
-- 
2.25.1