Add a pseudo-suspend to DOS that invokes a subshell.

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 7365e88a41711b9f9ae146dbe6e9ccae9f51bea8..f5f80f8ed44965a778ed11f4b590de75f407fca9 100644 (file)
--- 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 1ce2dc60cc35aa32e6c953ec18afc3f2d3464c25..d9117307878bb751d5e6618777fcf720702de141 100644 (file)
--- 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))
 \f
+;; 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.